Delphi 各种功能函数总结

1. 自增函数 Inc

原型:procedure Inc(var X);,位于 System 单元。git

功能:第一种用法,就是本身加一。数组

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

原型:procedure Inc(var X; N: Longint);,位于 System 单元。markdown

功能:第二种用法,就是加上一个指定的值。app

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

2. 自减函数 Dec

原型:procedure Dec(var X);,位于 System 单元。ide

功能:第一种用法,就是本身减一。函数

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

原型:procedure Dec(var X; N: Longint);,位于 System 单元。ui

功能:第二种用法,就是减去一个指定的值。lua

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

3. 返回所占字节数 SizeOf

原型:function SizeOf(X): Integer;,位于 System 单元。url

功能:它能够返回一个变量、或类型所占的字节数spa

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;,位于 System 单元。

功能:它能够返回字符串中的字符个数、或数组中的元素个数

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;
复制代码

5. 给连续的字节赋指定的值 FillChar

原型:procedure FillChar(var X; Count: Integer; Value: Byte);,位于 System 单元。

功能:它能够给一组连续的字节赋予相同的指定值,一般用来给变量赋初值。

var
  arr: array [0..5] of Byte;
begin
  //数组除了能够用for循环单个元素依次初始化,也能够用FillChar所有初始化为一样的值
  FillChar(arr, SizeOf(arr), 1);  //表示给变量arr,从起始地址开始的连续6个字节,都赋值为1
end;
复制代码

6. 整型转字符串 IntToStr

原型:位于 SysUtils 单元

function IntToStr(Value: Integer): string; overload;

function IntToStr(Value: Int64): string; overload;

功能:将一个整型数,以字符串形式返回。

补充:Integer 表示有符号32位整数,Int64 表示有符号64位整数。

var
  s: string;
begin
  s:= IntToStr(100);   //这里,s的值为 100
  s:= IntToStr(-100);  //这里,s的值为 -100
  s:= IntToStr($100);  //这里,s的值为 256
  s:= IntToStr(-$100); //这里,s的值为 -256
end;
复制代码

7. 整型转十六进制字符串 IntToHex

原型:位于 SysUtils 单元

function IntToHex(Value: Integer; Digits: Integer): string; overload;

function IntToHex(Value: Int64; Digits: Integer): string; overload;

功能:将一个整型数转成十六进制数,以字符串形式返回,Digits 表示字符串长度,位数不足前面补零。

补充:Integer 表示有符号32位整数,Int64 表示有符号64位整数。

var
  s: string;
begin
  s:= IntToHex(100, 1);  //十进制转十六进制,这里s的值为 64
  s:= IntToHex(100, 2);  //十进制转十六进制,这里s的值为 64
  s:= IntToHex(100, 4);  //十进制转十六进制,这里s的值为 0064
  
  s:= IntToHex(-100, 1);  //十进制转十六进制,这里s的值为 FFFFFF9C
  s:= IntToHex(-100, 10); //十进制转十六进制,这里s的值为 00FFFFFF9C
  
  s:= IntToHex($100, 1);  //十六进制转十六进制,这里s的值为 100
  s:= IntToHex($100, 2);  //十六进制转十六进制,这里s的值为 100
  s:= IntToHex($100, 4);  //十六进制转十六进制,这里s的值为 0100
  
  s:= IntToHex(-$100, 1);   //十六进制转十六进制,这里s的值为 FFFFFF00
  s:= IntToHex(-$100, 10);  //十六进制转十六进制,这里s的值为 00FFFFFF00
end;
复制代码
相关文章
相关标签/搜索