delphi常用函数（带使用实例）
- 格式：docx
- 大小：31.39 KB
- 文档页数：41
delphi常用函数（带使用实例）
//-------------------------------
delphi 常用函数
1.Abs
功能说明：求绝对值。
参考实例：
var
r: Single;
i: Integer;
begin
r := Abs(-2.8); // r等于 2.8
i := Abs(-156); // I 等于 156
end;
2.AllocMem
功能说明：分配内存空间并自动初始化为零。如果不需要初始化为零，可以使用GetMem代替AllocMem。
参考实例：
var
Buffer: PChar;
begin
Buffer := AllocMem(256); // 分配大小为256个字节的内存空间
end;
3.Append
功能说明：追加内容到文件中。文件必须要存在。
参考实例：
var
S: String;
F: TextFile;
begin
S := 'This is a book.';
AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
Append(F); // 以追加的方式打开文件
Writeln(F, S); // 将S变量中的内容追加到文本尾后。
CloseFile(F); // 关闭文件
end;
4.AssignFile
功能说明：与指定的文件建立连接。
参考实例：
var
F: TextFile; // 声明文本文件类型变量
begin
AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
end;
5.ChDir
功能说明：改变当前目录(文件夹)。
参考实例：
var
sDir: String;
begin
sDir := 'C:\Windows';
ChDir(sDir); // 此时，系统的当前目录则为C:\Windows目录。
end;
6.CloseFile
功能说明：关闭文件。当对文件的操作完成后，应该使用CloseFile函数关闭打开的文件。
参考实例：
var
S: String;
AllText: String;
F: TextFile;
begin
AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
Reset(F); // 打开文件
while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾
Readln(F, S); // 读取一行文本
AllText := AllText + S;
end;
CloseFile(F); // 关闭文件
end;
7.Concat
功能说明：连接两个或多个字符串为一个字符串。
参考实例：
var
S1, S2: String;
begin
S1 := Concat('A', 'B'); // 连接两个字符串，S1变量等于AB。
S2 := Concat('Borland', ' Delphi', ' 7.0'); // 连接三个字符，S2变量等于Borland Delphi 7.0。
end;
7.Copy
功能说明：该函数用于从字符串中
复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串)，第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。
参考实例：
var
S: String;
MyStr: String; // 保存新的字符串
begin
S := 'I Love China!';
//下面将获取I Love China中的“Love”字符串。
MyStr := Copy(S, 3, 4);
end;
执行结果，MyStr等于“Love”，“Love”字符串在“I Love
China!”中第3个位置开始，所以第二个参数为3，“Love”一共有4个字符，所以第三个参数为4。
8.Date
功能说明：返回当前的日期。
参考实例：
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := '今天是：' + DateToStr(Date);
end;
Label显示为：今天是2005年1月1日。
9.DateToStr
功能说明：将日期型转换为字符型。
参考实例：
var
S: String;
begin
S := DateToStr(Date);
end;
10.DateTimeToStr
功能说明：将DateTime型转换为字符型。
参考实例：
var
S: String;
begin
S := DateTimeToStr(Now);
end;
11.DayOfTheMonth(所在单元：DateUtils)
功能说明：获取指定日期的日。
参考实例：
Label1.Caption := IntToStr(DayOfTheMonth(Now));
假设当前日期为2005年1月2日，那么Label将显示为2。
12.DayOfTheWeek(所在单元：DateUtils)
功能说明：根据指定日期，获取星期几。
参考实例：
Label1.Caption := IntToStr(DayOfTheMonth(Now));
假设当前日期为2005年1月2日，那么Label将显示为7。根据返回的值来判断是周几。7表示星期天，1为星期一，依类类推。
13.DayOfTheYear(所在单元：DateUtils)
功能说明：根据指定日期，获取天数。
参考实例：
Label1.Caption := IntToStr(DayOfTheYear(Now));
假设当前日期为2005年1月2日，那么Label将显示为2。表示是2005年的第2天。
14.DayOf(所在单元：DateUtils)
功能说明：根据指定的日期，返回日。
参考实例：
Label1.Caption := IntToStr(DayOf(Date));
假设当前日期为2005年1月2日，那么Label将显示为2。
15.Delete
功能说明：删除字符串中指定的字符串。该函数有三个参数。第一个参数为要进行处理的字符串，第二个参数为从何处开始删除，第三个参数为删除的字符个数。
参考实例：
var
S: String;
begin
S := 'I Like Reading CP
CW.';
// 下面的代码将删除S变量中的“C”字符。
Delete(S, 16, 1);
