//-------------------------------
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。根据返回的值来判断是周