System.Length - 获取字符串或数组的长度

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 单元下的公用函数目录