随笔 - 2146  文章 - 97 评论 - 11765 trackbacks - 253

function Length(
  S: String {字符串; 也可以是数组}
): Integer;

举例:
//string(在 Delphi 2007 下同 AnsiString)
var
  s: string;
  i: Integer;
begin
  s := 'Delphi';
  i := Length(s);
  ShowMessage(IntToStr(i)); {6}
end;

//ShortString var s: ShortString; i: Integer; begin s := 'Delphi'; i := Length(s); ShowMessage(IntToStr(i)); {6} end;
//string[n] var s: string[10]; i: Integer; begin s := 'Delphi'; i := Length(s); ShowMessage(IntToStr(i)); {6} end;
//AnsiString var s: AnsiString; i: Integer; begin s := '万一123'; i := Length(s); ShowMessage(IntToStr(i)); {7} end;
//WideString var s: WideString; i: Integer; begin s := '万一123'; i := Length(s); ShowMessage(IntToStr(i)); {5} end;
//静态数组(Length 是获取数组的元素个数; 获取数组的大小需要用 SizeOf) var i: Integer; arr: array[0..10] of Integer; begin i := Length(arr); ShowMessage(IntToStr(i)); {11} end;
//动态数组 var i: Integer; arr: array of Integer; begin SetLength(arr, 10); i := Length(arr); ShowMessage(IntToStr(i)); {10} end;
//多维数组 var i: Integer; arr: array[0..4, 2..22] of Integer; begin i := Length(arr); ShowMessage(IntToStr(i)); {5} end;
System 单元下的公用函数目录

posted on 2008-03-24 22:49 万一 阅读(...) 评论(...) 编辑 收藏