Delphi 功能函数总结

1. 自增函数 Inc

第一种用法，就是自己加一，procedure Inc(var X);

var
  i: Integer;
begin
  i:= 100;
  Inc(i);  //这里，i的值就成了101
end;
复制代码

第二种用法，就是加上一个指定的值，procedure Inc(var X; N: Longint);

var
  i: Integer;
begin
  i:= 100;
  Inc(i, 100);  //这里，i的值就成了200
end;
复制代码

2. 自减函数 Dec

第一种用法，就是自己减一，procedure Dec(var X);

var
  i: Integer;
begin
  i:= 100;
  Dec(i);  //这里，i的值就成了99
end;
复制代码

第二种用法，就是减去一个指定的值，procedure Dec(var X; N: Longint);

var
  i: Integer;
begin
  i:= 100;
  Inc(i, 30);  //这里，i的值就成了70
end;
复制代码

3. 返回所占字节数 SizeOf

它可以返回一个变量或类型所占的字节数，function SizeOf(X): Integer;

var
  i, n: Integer;
  s: string;
begin
  i:= 10;
  n:= SizeOf(i);  //这里，n的值为4

  s:= 'Hello Delphi';
  n:= SizeOf(s);  //这里，n的值为4，这里有疑问，字符串不管长度多少，都返回4

  n:= SizeOf(Integer);  //这里，n的值为4
  n:= SizeOf(Double);   //这里，n的值为8
  n:= SizeOf(String);   //这里，n的值为4
end;
复制代码

4. 返回元素的个数 Length

它可以返回字符串中的字符个数、或数组中的元素个数，function Length(S): Integer;

var
  s: string;
  arr: array [0..5] of Integer;
  i, n: Integer;
begin
  s:= '123456789';
  n:= Length(s);  //这里，n的值为9

  for i:= 0 to 5 do
  begin
    arr[i]:= i;
  end;
  n:= Length(arr);  //这里，n的值为6
end;
复制代码