函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别在于，过程没有返回值，而函数能有返回值。
在Delphi 7.0中，已为我们定义好了非常多的函数，大致分类有6种：数据类型转换函数、字符串、数组操作函数、文件、磁盘操作函数、内存、指针操作函数、数学运算函数、日期函数。
在Delphi中调用函数，一般情况下可以直接使用函数即可，但由于有一些函数未包含在Uses中列出的单元中(默认单元有Windows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs;)，所以需要我们手动添加单元。比如，MidStr函数就未包含在这些单元中，MidStr所属单元在StrUtils中，因此我们将StrUtils添加Uses中即可。
在本手册中，凡是未包含在默认列出的单元中的函数，都标明了其所属的单元，使用时应当注意。
一、数据类型转换函数
在我们编写程序当中，根据不同情况，会使用到多种数据类型。当要对不同的类型进行操作时，必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。
1.FloatToStr
功能说明：该函数用于将“浮点型”转换成“字符型”。
参考实例：
Edit1.Text := FloatToStr(1.981);
2.IntToStr
功能说明：该函数用于将“整数型”转换成“字符型”。
参考实例：
S := IntToStr(10);(注：S为String类型变量。)
3.IntToHex
功能说明：该函数用于将“十进制”转换成“十进制”。该函数有二个参数。第一个参数为要转换的十进制数据，第二个参数是指定使用多少位来显示十六进制数据。
参考实例：
Edit1.Text := IntToHex(''100'', 2);
执行结果，Edit1.Text等于64。
注意：Delphi没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt 函数可以实现这个功能。具体代码是：I := StrToInt(''S\'' + ''64''); 这时I等于100。加上一个''S\''即可将“十六进制”转换为“十进制”。
4.StrToInt
功能说明：该函数用于将“字符型”转换成“整数型”。
参考实例：
I := StrToInt(''100'');
注意：不能转换如StrToInt(''ab'')或StrToInt(''好'')这样的类型，因为他们并不存在数字型。
5.StrToFloat
功能说明：该函数用于将“字符型”转换成“浮点型”。
参考实例：
N := StrToFloat(Edit1.Text);
注意：Edit1.Text中的内容为1.981(凡在Edit控件中显示的文本均为字符串)。N为Double类型，用于保存转换后的浮点型数据。
二、字符串、数组操作函数
对字符串及数组的操作，是每个程序员必须要掌握的。熟练的使用这些函数，在编程时能更加得心应手。
1.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。
2.Concat
功能说明：连接两个或多个字符串为一个字符串。
参考实例：
var
S1, S2: String;
begin
S1 := Concat(''A'', ''B''); // 连接两个字符串，S1变量等于AB。
S2 := Concat(''Borland'', '' Delphi'', '' 7.0''); // 连接三个字符，S2变量等于Borland Delphi 7.0。
end;
3.Delete
功能说明：删除字符串中指定的字符串。该函数有三个参数。第一个参数为要进行处理的字符串，第二个参数为从何处开始删除，第三个参数为删除的字符个数。
参考实例：
var
S: String;
begin
S := ''I Like Reading CPCW.'';
// 下面的代码将删除S变量中的“C”字符。
Delete(S, 16, 1);
end;
此时S 变量则是I Like Reading PCW.(“C”已经不存在了)。
4.High
功能说明：返回数组下标的最大值。
参考实例：
var
arrText: array[0..9] of Char;
i: Integer;
begin
i := High(arrText); // i的值则为9
end;
5.Insert
功能说明：插入一个字符(串)。该函数有三个参数。第一个参数为要插入的字符(串)，第二个参数为被插入字符串(源字符串)，第三个参数为从何处插入。
参考实例：
var
S: String;
begin
S := ''Wat is your name?'';
// 上面句子中的What单词查一个“h”字符，下面使用Insert函数将h添加进去。
Insert(''h'', S, 2); // 将“h”从第2位处插入。
end;
6.LeftStr(所在单元：StrUtils)
功能说明：返回字符串左边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串，第二个参数为指定个数。
参考实例：
var
S, A: String;
begin
S := ''MSN Messenger'';
A := LeftStr(S, 3); // 从最左边开始，获取左边的三个字符。因此A变量则等于MSN。
end;
7.Length
功能说明：该函数用于统计指定字符串的长度(即个数)。
参考实例：
var
nLen1, nLen2: Integer; // 用于保存字符串长度
begin
nLen1 := Length(''CPCW'');
nLen2 := Length(''电脑报'');
end;
执行结果，nLen1等于4，nLen2等于6。由于一个汉字相当于两个字符的长度，所以3个汉字的长度为6。
8.Low
功能说明：返回数组下标的最小值。
参考实例：
var
arrText: array[1..9] of Char;
i: Integer;
begin
i:= High(arrText); // i的值则为1
end;
9.LowerCase
功能说明：将字符(串)中的英文字符转换为小写。
参考实例：
var
S, A: String;
begin
S := ''ABC'';
A := UpperCase(S); // 经过UpperCase函数转换后，A则等于abc。
end;
10.MidStr(所在单元：StrUtils)
功能说明：返回指定范围内的字符串。该函数有三个参数。第一个参数为源字符串，第二个参数为起点，第三个参数为结束点。通过第二、第三个参数则可指定要复制字符串的范围。
Copy函数与此函数类似。MidStr主要用于处理含有中文字符的字符串。
参考实例：
var
S: String;
H: String;
begin
S := MidStr(''China'', 1, 2); // S变量为Ch
H := MidStr(''电脑报'', 1, 1); // H变量为“电”。如果使用Copy函数，则应是H := Copy(''电脑报, 1, 2)，否则返回的将不是“电”字。因此在使用操作含有中文的字符串时，最好使用MidStr。
end;
11.Pos
功能说明：查找字符(串)所在位置。该函数有二个参数。第一个参数为要查找的字符(串)，第二个参数为被查找字符(串)。
参考实例：
var
nPos: Integer; // 用于保存查找的字符所在位置
begin
nPos := Pos(''Like'', ''I Like Reading!'');
end;
此时nPos等于3。如果没有查找到，则nPos为0。
注意：Pos函数在查找时是要区分字符大小的。如果要实现不区分大小，那么需要使用UpperCase或LowerCase函数将两个参数的字符(串)转换为“大写”或“小写”再进行查找。
另外还有一个查找字符(串)的函数----AnsiPos，该函数的使用方法与Pos函数完全一样。当你查找的是汉字时，最好使用AnsiPos函数。
12.RightStr(所在单元：StrUtils)
功能说明：返回字符串右边指定个数的新字符(串)。该函数有两个参数。第一个参数为完整的字符串，第二个参数为指定个数。
参考实例：
var
S, A: String;
begin
S := ''MSN Messenger'';
A := RightStr(S, 3); // 从最右边开始，获取右边的三个字符。因此A变量则等于ger。
end;
13.SetLength
功能说明：设置字符串或动态数组长度。该函数有两个参数。第一个参数为要设置的字符串变量或动态数组变量，第二个参数为指定的长度，其取值范围在0到255之间。
参考实例：
var
S: String;
arrText: array of Char; // 定义一个动态数组
begin
SetLength(S, 10); // 当设置后，S变量只能赋值长度为10的字符串。
SetLength(arrText, 10); // 只有使用SetLength为动态数组分配内存空间后才能使用动态数组。这句代码的作用相当于arrText: array[0..9] of Char
end;
14.StrPCopy
功能说明：将字符串复制到字符数组中。该函数有两个参数。第一个参数为“目标数组”，第二个参数为“字符串”。
参考实例：
var
arrChar: array[0..255] of Char; // 这里声明了长度为256的Char型数组
begin
StrPCopy(arrChar, ''Come on, baby!'');
end;
15.Trim
功能说明：删除字符串左右两边的空格(无论左右两边有多少个空格均被全部删除)。
参考实例：
var
S: String;
begin
S := '' Delphi 7.0 '';
S := Trim(S);
end;
16.TrimLeft
功能说明：删除字符串左边的空格(无论左边有多少个空格均被全部删除)。
参考实例：
S := TrimLeft('' Delphi'');
17.TrimRight
功能说明：删除字符串左边的空格(无论左边有多少个空格均被全部删除)。
参考实例：
S := TrimRight(''Delphi '');
18.UpperCase
功能说明：将字符(串)中的英文字符转换为大写。
参考实例：
var
S, A: String;
begin
S := ''abc'';
A := UpperCase(S); // 经过UpperCase函数转换后，A则等于ABC。
end;
三、文件、磁盘操作函数
软件大多都要对文件、磁盘进行操作。熟悉掌握这些函数可以帮助你轻松实现创建、删除、保存文件等功能。
1.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;
2.AssignFile
功能说明：与指定的文件建立连接。
参考实例：
var
F: TextFile; // 声明文本文件类型变量
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
end;
3.ChDir
功能说明：改变当前目录(文件夹)。
参考实例：
var
sDir: String;
begin
sDir := ''C:\Windows'';
ChDir(sDir); // 此时，系统的当前目录则为C:\Windows目录。
end;
4.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;
5.DeleteFile
功能说明：删除指定的文件。该函数只有一个参数。此参数为欲删除文件的完整路径。如果删除成功，则返回True。若删除失败、或文件不存在则返回False。
参考实例：
var
IsOK: Boolean; // 用于保存删除状态
begin
IsOK := DeleteFile(''C:\My Documents\Index.html''); // 函数执着后，将结果返回给IsOK变量。如果IsOK变量为True，则表示文件删除成功。
if IsOK then ShowMessage(''文件删除成功！'')
else ShowMessage(''文件删除失败！'');
end;
6.DirectoryExists
功能说明：检测指定的文件夹否存在。如果存在则返回True，反之则为False。
参考实例：
var
IsExists: Boolean;
begin
IsExists := DirectoryExists (''C:\Windows'');
if IsExists then ShowMessage(''Windows文件夹存在！'')
else ShowMessage(''Windows文件夹不存在！'');
end;
7.DiskFree
功能说明：获取指定磁盘的剩余空间。该函数只有一个参数。该参数用于指定要获取剩余空间的磁盘号。当参数为0时，表示获取当前磁盘的剩余空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。
参考实例：
var
FreeSize: Int64;
begin
FreeSize := DiskFree(3); // 获取C盘中的剩余空间。返回的值是以“字节”为单位的。
end;
8.DiskSize
功能说明：获取指定磁盘的空间。该函数只有一个参数。该参数用于指定要获取磁盘空间的磁盘号。当参数为0时，表示获取当前磁盘的空间，1为A盘，2为B盘，以此类推。如果返回值为-1，表示指定的磁盘无效。
参考实例：
var
DiskSize: Int64;
begin
DiskSize:= DiskSize(3); // 获取C盘的空间。返回的值是以“字节”为单位的。
end;
9.EOF
功能说明：判断文件指针是否移动到了文件未尾。当EOF函数返回值为True时，则不可以使用Readln函数进行读取文件了。
参考实例：
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;
end;
10.Erase
功能说明：删除文件。
参考实例：
var
F: File;
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
Reset(F); // 打开文件
CloseFile(F); // 关闭文件
Erase(F); // 删除文件。在删除文件之前必须先关闭文件。
end;
11.FileExists
功能说明：检测指定的文件否存在。如果存在则返回True，反之则为False。
参考实例：
var
IsExists: Boolean;
begin
IsExists := FileExists(''C:\Test.txt'');
if IsExists then ShowMessage(''该文件存在！'')
else ShowMessage(''该文件不存在！'');
end;
12.FileSize
功能说明：获取文件大小。返回的结果是字节为单位。
参考实例：
var
F: file of Byte;
nSize: Longint;
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
Reset(F); // 打开文件
nSize := FileSize(F); // 获取文件大小。
CloseFile(F); // 关闭文件
end;
13.ForceDirectories
功能说明：创建新的子目录。路径中不存在的目录将一同创建。
参考实例：
ForceDirectories(''C:\Flash\MyFolder''); // 如果Flash文件夹本身不存的话，那么将会先创建Flash文件夹，然后再创建MyFolder文件夹。
14.MkDir
功能说明：创建一个新的子目录(文件夹)。
参考实例：
MkDir(''C:\MyFolder''); // 在C盘根目录中创建了一个名叫MyFolder的文件夹。
需要注意的是，如果在本身不存在的目录中创建子目录将会失败。比如C盘根本不存在Flash文件夹，写成MkDir(''C:\Flash\MyFolder'');这样将不能成功创建MyFolder文件夹。
15.Reset
功能说明：以只读方式打开文件。
参考实例：
var
F: TextFile; // 声明文本文件类型变量
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
Reset(F); // 打开文件
end;
16.Rewrite
功能说明：以可写方式打开文件。如果文件不存在，将会自动创建。使用该函数，将会覆盖文件中的所有内容。
参考实例：
var
F: TextFile; // 声明文本文件类型变量
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
Rewrite(F); // 打开文件。如果文件不存在，将会在C盘中创建MyFile.txt文件。如果文件存在，将会覆盖MyFile.txt中的所有内容。
end;
17.Readln
功能说明：读取一行文本。
参考实例：
var
S: String;
F: TextFile;
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
Reset(F); // 打开文件
Readln(F, S); // 读取一行文本到S变量中
end;
18.Rename
功能说明：更改文件名。
参考实例：
var
F: File;
begin
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
ReName(F, ''C:\NewFile.txt''); // 更名为NewFile.txt
end;
19.Writeln
功能说明：写入一行文本。
参考实例：
var
S: String;
F: TextFile;
begin
S := ''This is a book.'';
AssignFile(F, ''C:\MyFile.txt''); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
Rewrite(F); // 创建新文件
Writeln(F, S); // 将S变量中的内容写入文本中。
end;
四、内存、指针操作函数
在编程中，动态数组为我们处理数据带来了很大的方便。Windows API函数也为增强程序的功能提供了强有力的保障。当我们在使用这些动态数组及API函数时，常常需要动态分配内存空间，这样动态数组才能被我们使用，API函数才能正确的返回结果。因此，这些函数是必不可少的。
1.AllocMem
功能说明：分配内存空间并自动初始化为零。如果不需要初始化为零，可以使用GetMem 代替AllocMem。
参考实例：
var
Buffer: PChar;
begin
Buffer := AllocMem(256); // 分配大小为256个字节的内存空间
end;
2.Dispose
功能说明：释放为指针分配的内存空间。
参考实例：
var
P: Pinteger; // 声明一个Integer(整型)指针
begin
New(P);
P^ := 100;
Dispose(P) // 释放内存
end;
3.FreeMem
功能说明：释放分配的内存空间。
参考实例：
var
[标准函数和过程] 首部 procedure Abort;$[SysUtils 功能引起放弃的意外处理。 说明不显示任何错误信息。 首部 function Abs(N:
function ArcCos(const X : Extended) : Extended; overload; function ArcCos(const X : Double) : Double; overload; function ArcCos(const X : Single) : Single; overload; function ArcSin(const X : Extended) : Extended; overload; function ArcSin(const X : Double) : Double; overload; function ArcSin(const X : Single) : Single; overload; function ArcTan2(const Y, X: Extended): Extended; procedure SinCos(const Theta: Extended; var Sin, Cos: Extended) register; function Tan(const X: Extended): Extended; function Cotan(const X: Extended): Extended; { 1 / tan(X), X <> 0 } function Secant(const X: Extended): Extended; { 1 / cos(X) } function Cosecant(const X: Extended): Extended; { 1 / sin(X) } function Hypot(const X, Y: Extended): Extended; { Sqrt(X**2 + Y**2) } function RadToDeg(const Radians: Extended): Extended; inline; { Degrees := Radians * 180 / PI } function RadToGrad(const Radians: Extended): Extended; inline; { Grads := Radians * 200 / PI } function RadToCycle(const Radians: Extended): Extended; inline; { Cycles := Radians / 2PI } function DegToRad(const Degrees: Extended): Extended; inline; { Radians := Degrees * PI / 180} function DegToGrad(const Degrees: Extended): Extended; function DegToCycle(const Degrees: Extended): Extended; function GradToRad(const Grads: Extended): Extended; inline; { Radians := Grads * PI / 200 } function GradToDeg(const Grads: Extended): Extended; function GradToCycle(const Grads: Extended): Extended; function CycleToRad(const Cycles: Extended): Extended; inline; { Radians := Cycles * 2PI } function CycleToDeg(const Cycles: Extended): Extended; function CycleToGrad(const Cycles: Extended): Extended; { Hyperbolic functions and inverses } function Cot(const X: Extended): Extended; inline; { alias for Cotan } function Sec(const X: Extended): Extended; inline; { alias for Secant } function Csc(const X: Extended): Extended; inline; { alias for Cosecant } function Cosh(const X: Extended): Extended; function Sinh(const X: Extended): Extended; function Tanh(const X: Extended): Extended; function CotH(const X: Extended): Extended; inline; function SecH(const X: Extended): Extended; inline; function CscH(const X: Extended): Extended; inline; function ArcCot(const X: Extended): Extended; { IN: X <> 0 } function ArcSec(const X: Extended): Extended; { IN: X <> 0 } function ArcCsc(const X: Extended): Extended; { IN: X <> 0 } function ArcCosh(const X: Extended): Extended; { IN: X >= 1 } function ArcSinh(const X: Extended): Extended;
Delphi函数大全 首部function Languages: TLanguages; $[ 功能返回系统语言对象 说明通过此函数可以得到系统的语言环境 参考type 例子 12a12c12a12c. 参考
Delphi7从入门到精通之历数Delphi七个版本 前言 第一次Zack Urlocker给我看一款尚未发布的名为Delphi的产品时，我意识到她将改变我的工作—还有许多其他软件开发者的工作。我过去为使用Windows C 库而挣扎，而Delphi过去是现在仍然是面向对象编程和可视化编程的最好组合，它适用于Windows操作系统和Linux操作系统，很快也将适用于.net。 Delphi 7完全继承了这一传统并坚持了VCL的坚固基础，VCL提供了一个惊人的无所不能的软件开发工具。寻找database，client/server，multitier，intranet，或Internet解决方案？寻找控制和力量？寻找快速的生产率？使用Delphi和在这书中提出大量的技术和指南，你将能够完成所有这一切。 历数Delphi的七个版本 吸引我的最初的一些Delphi特性是其基于窗体的和面向对象的方法，其极快的编译器，其巨大的数据库支持，其与Windows编程的紧密集成，其组件技术。但是，最重要的因素是Object Pascal语言，它所有其它的基础。 Delphi 2更好！在其最重要的增加中有这些：Multi-Record Object(多记录对象)和改进的database grid(数据库表格)，OLE Automation支持和variant(变量)数据类型，对WINDOWS 95的完全支持和集成，long string (长字符串)数据类型，和Visual Form继承。Delphi3添加了code insight (代码观洞察)技术，DLL调试支持，component templates(组件模板)，TeeChart，Decision Cube，WebBroker技术，component packages(组件包)，ActiveForms，通过接口与COM 的出色集成。 Delphi 4 给了我们ApPBrowsereditor，新的WINDOWS 98特性，改进的OLE和COM支持，扩展的database components(数据库组件)，许多增加到核心VCL类，包括对于docking(停靠)，constraining，和anchoring controls的支持。Delphi 5添加了许多对IDE的改进(在这里要列出实在是太多了)，扩展的数据库支持(特殊的ADO和InterBase datasets)，支持因特网的MIDAS 的改进版本，TeamSource版本控制工具，翻译能力，框架(frame)的概念，和新的组件。Delphi 6添加了对如下特性的支持：对CLX(Component Library for Cross-Platform CLX)跨平台开发的支持，扩展的运行库(run-time library)，dbExpress数据库引擎，Web 服务和杰出的XML 支持，一个强大的Web开发框架，IDE的更多增强，大量的组件和类，详细内容在后面讲解。Delphi 7确实改进和固定这些较新的技术使其更健壮(SOAP支持和DataSnap的出现)，提供对于较新技术(像Windows XP主题或者UDDI )的支持，但是最重要的是它使一套富有吸引力的第三方工具使用更简单：RAVE报表引擎，IntraWeb web应用开发技术，和ModelMaker设计环境。最后，它通过提供第一个不是瞄准Intel CPU，而是.NET CIL平台的Pascal/Delphi的Borland编译器开辟了一个崭新的世界。 Delphi是一个伟大的工具，但它也是一个复杂的包括许多元素的编程环境。本书将帮助你掌握Delphi编程，包括Delphi语言，组件(保括使用现有的和开发你自己的)，数据库和client/server支持，Windows和COM编程的关键因素，因特网和Web开发。 你不需要具备任何关于这些主题的高深知识来阅读本文，但是你需要知道编程的基础知识。对Delphi熟悉一些将对你有相当的帮助。
(DELPHI)API函数大全 1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接WNetAddConnection2 创建同一个网络资源的连接WNetAddConnection3 创建同一个网络资源的连接WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框，以便建立同网络资源的连接WNetDisconnectDialog 启动一个标准对话框，以便断开同网络资源的连接WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称WNetGetLastError 获取网络错误的扩展错误信息WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC （统一命名规范）名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程 2. API之消息函数 BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置GetMessageTime 取得消息队列中上一条消息处理完毕时的时间PostMessage 将一条消息投递到指定窗口的消息队列PostThreadMessage 将一条消息投递给应用程序RegisterWindowMessage 获取分配给一个字串标识符的消息编号ReplyMessage 答复一个消息 SendMessage 调用一个窗口的窗口函数，将一条消息发给那个窗口SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 3. API之文件处理函数 CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台CreateFileMapping 创建一个新的文件映射对象 DeleteFile 删除指定文件
怎么在delphi中读取Excel数据（各种详细操作）转 ( 一) 使用动态创建的方法 首先创建Excel 对象，使用ComObj : Var ExcelApp : Variant ; ExcelApp := CreateOleObject ( '' Excel.Application '' ) ; 1 ) 显示当前窗口： ExcelApp.Visible := True ; 2 ) 更改Excel 标题栏： ExcelApp.Caption := '' 应用程序调用Microsoft Excel '' ; 3 ) 添加新工作簿： ExcelApp.WorkBooks.Add ; 4 ) 打开已存在的工作簿： ExcelApp.WorkBooks.Open ( '' C : \Excel\Demo.xls '' ) ; 5 ) 设置第2个工作表为活动工作表： ExcelApp.WorkSheets [ 2 ] .Activate ; 或 ExcelApp.WorksSheets [ '' Sheet2 '' ] .Activate ; 6 ) 给单元格赋值： ExcelApp.Cells [ 1 , 4 ] .Value := '' 第一行第四列'' ; 7 ) 设置指定列的宽度（单位：字符个数），以第一列为例： ExcelApp.ActiveSheet.Columns [ 1 ] .ColumnsWidth := 5 ; 8 ) 设置指定行的高度（单位：磅）（1磅＝0.035 厘米），以第二行为例：ExcelApp.ActiveSheet.Rows [ 2 ] .RowHeight := 1 / 0.035 ; // 1厘米 9 ) 在第8行之前插入分页符： ExcelApp.WorkSheets [ 1 ] .Rows [ 8 ] .PageBreak := 1 ; 10 ) 在第8列之前删除分页符： ExcelApp.ActiveSheet.Columns [ 4 ] .PageBreak := 0 ;
delphi常用函数大全（转） Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中 Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块 AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写） AnsiCompareText函数比较字符串（不区分大小写） AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程 BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式 BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录 BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句 Brush属性画刷 Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符 CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数 CompareStr函数比较字符串（区分大小写） Concat函数合并字符串 Continue命令继续for、while、repeat的下一个循环 Copy函数返回一字符串的子串 Cos函数余弦函数 Ctl3D属性是否具有3D效果 Cursor属性鼠标指针移入后的形状 Date函数返回当前的日期 DateTimeToFileDate函数将DELPHI的日期格式转换为DOS的日期格式DateTimeToStr函数将日期时间格式转换为字符串DateTimeToString函数将日期时间格式转换为字符串 DateToStr函数将日期格式转换为字符串
Delphi7.0中如何用代码访问数据的方法 一、第一种方法： 1、设计的界面如下： 2、主要代码： （1）启动窗口中的主要代码： Se:= ExtractFilePath(Application.ExeName) + 'data\jczk.mdb'; //动态取出系统文件的路径ADOADOQuery1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ Se+';Persist Security Info=False'; ADOADOQuery1.Close; ADOADOQuery1.SQL.Clear; ADOADOQuery1.SQL.Add('select * from yhz'); ADOADOQuery1.Open;//ADOADOQuery1.ExecSQL;本句表示不返回值时的记录集合ADOADOQuery1.Active:=true; （2）查询其它表时的代码： ADOADOQuery1.Close; ADOADOQuery1.SQL.Clear; ADOADOQuery1.SQL.Add('select * from jf11'); ADOADOQuery1.Open; ADOADOQuery1.Active:=true; （3）提示窗口：Application.MessageBox('ss','提示',64); （4）说明：DataSource1必须要与ADOADOQuery1连接在一起；DBGrid1必须要与DataSource1连接在一起。 （5）取值：EDIT1.Text:=ADOADOQuery1.FieldByName('yhz04').AsString （6）怎么使用ADOQuery1给数据库添加数据? ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('insert into "Tab_Contron_record"'); ADOQuery1.SQL.Add('('+str_V+')'); ADOQuery1.SQL.Add('values('+str_T+')'); ADOQuery1.ParamByName('用户名').AsString:='admin'; ADOQuery1.ParamByName('连接设备IP').AsString:='192.168.18.66'; ADOQuery1.ParamByName('用户类型').AsString:='管理员'; ADOQuery1.ParamByName('连接时间').AsString:=datetimetostr(now); ADOQuery1.ParamByName('备注').AsString:='无'; ADOQuery1.ExecSQL; （7）、怎么样查询数据库中表的值，即条件查询(注意：Quotedstr()函数的使用)：cnn:='select * from sinfo where sid=200601001'; //“sid”字段为数值型可以直接使用； cnn:='select * from sinfo where sclass='+Quotedstr('高一一');//“sclass”字段为字符类型； //多条件进行查询的例子 cnn:='select * from sinfo where sclass='+Quotedstr('高一一')+' and ssex='+quotedstr('男'); ADOQuery1.Close ;
【字符串函数大全】 首部function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 功能返回两个字符串是否相似 说明ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 例子CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否包含子串ASubText 说明不区分大小写 参考function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 例子CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText开头 说明不区分大小写 参考function https://www.doczj.com/doc/8713424634.html,pareString 例子CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 功能返回字符串AText是否以子串ASubText结尾 说明不区分大小写 参考function https://www.doczj.com/doc/8713424634.html,pareString 例子CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas 功能返回字符串AText中用子串AFromText替换成子串AToText的结果 说明不区分大小写 参考function SysUtils.StringReplace; type SysUtils.TReplaceFlags 例子Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
Delphi连接SQL数据库实用技巧 本文介绍Delphi连接SQl Server 2000的方法。其他版本原理基本类似。 1.启动SQl服务器 启动SQl的服务管理器，确认其已正常启动。 图表0-1未启动时画面 图表0-2启动时画面
2.启动Delphi，放置所需控件 在Delphi的控件栏上找到Data Controls一类，选择其中的DBGrid控件拖放至Form窗体上，调整至合适大小。 图表0-1 图表0-2 在Delphi的控件栏上找到Data Access一类，选择其中的DataSource（DB）控件拖放至Form窗体上。 图表0-3
图表0-4 在Delphi的控件栏上找到ADO一类，选择其中的ADOQuery（ADODB）控件拖放至Form窗体上。 图表0-5 图表0-6
3.设置各控件的连接参数 设置DBGrid控件的DataSource属性为之前所放置的DataSource（DB）控件 图表0-1 设置DataSource（DB）控件的DataSet属性为之前放置的ADOQuery（ADODB）控件 图表0-2 设置ADOQuery（ADODB）控件的ConnectionString属性
图表0-3 双击出现如下窗口，点击Build按钮 图表0-4 选择如下图标示项，并点击下一步
图表0-5 如下图，第一项选择你需要的SQL服务器，第二项如选择使用windows集成安全设置则不需要输入用户名及密码，选择使用指定的用户名和密码是则需要输入已在数据库中建立的用户名和密码，当第二项设置正确时第三项的在服务器上选择数据库的下拉项中会出现你所选择的数据库服务器上的所有可用数据库，选择你所需要的数据库即可。
Delphi函数大全 function Int(X:Extended):Extended;//取整 function Round(X:Extended):Int64;//四舍五入function Trunc(X:Extended):Int64;//将小数无条件舍去信息来源:邪恶八进制信息安全团队 名称类型说明 ---------------------------------------------------------------------------------- Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写）AnsiCompareText函数比较字符串（不区分大小写）AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式 BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录 BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句 Brush属性画刷 Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录
delphi的函数手册 名称类型说明 ---------------------------------------------------------------------------------- Abort函数引起放弃的意外处理 Abs函数绝对值函数AddExitProc函数将一过程添加到运行时库的结束过程表中Addr函数返回指定对象的地址AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分Alignment属性控件标签的文字位置AllocMem函数在堆栈上分配给定大小的块AllowGrayed属性允许一个灰度选择AnsiCompareStr函数比较字符串（区分大小写）AnsiCompareText函数比较字符串（不区分大小写）AnsiLowerCase函数将字符转换为小写AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名Assigned函数测试函数或过程变量是否为空AutoSize属性自动控制标签的大小BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程BevelInner属性控件方框的内框方式BevelOuter属性控件方框的外框方式BevelWidth属性控件方框的外框宽度BlockRead函数读一个或多个记录到变量中BlockWrite函数从变量中写一个或多个记录BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句Brush属性画刷 Caption属性标签文字的内容ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数CompareStr函数比较字符串（区分大小写）Concat函数合并字符串 Continue命令继续for、while、repeat的下一个循环Copy函数返回一字符串的子串
Delphi7.0运行时全屏显示轮回显示图片 1.0D elphi7.0运行时全屏幕 2.0在创建窗体时的OnCreate事件时写入下列代码： BorderStyle := bsNone; WindowState := wsMaximized; 或者 BorderStyle := bsNone; Left := 0; Top := 0; Width := Screen.Width; Height := Screen.Height; 或者 BorderStyle:=bsNone; SetBounds(0,0,Screen.Width,Screen.Height); 以上三种是全屏幕运行时不出现系统的最小化，最大化，关闭按钮，如果要出现，BorderStyle := bsNone;不写 //不要保存上面的东西。自己在一个Form里加两个按钮分别指向一个事件；加一个OpenDialog，设置一下OpenDialog 的Options ，将ofAllowMultiSelect := True; 先执行LoadImage1Click，将一些图片文件。。。。。
去试试。// Delphi7.0 中随机从一个范围中取整数 在uses引用math， 使用随机函数时的代码如下： randomize;//初始化内置的随机数生成器 edit1.Text:=inttostr(randomrange(1000,9999)); //randomrange（随机数起始范围，随机数结束范围） 也可以不用在uses中引用math直接写下列代码 https://www.doczj.com/doc/8713424634.html,bel1.Caption:=inttostr(random(10)); 执行后窗体名为form1的label1.caption 随机在0-10内变化； 新建一个工程，保存在里面放入一些图片使得该程序运行时能够全屏幕随机选择图片显示 添加一个Image1控件，在（Additional）中代码添加如下：procedure TForm1.FormCreate(Sender: TObject); begin BorderStyle := bsNone; WindowState := wsMaximized; end; procedure TForm1.Button1Click(Sender: TObject); begin application.Terminate;
///// Delphi 位操作的函数(修改了一下，更靠近使用习惯) ///// unit BitControl; interface /// /||| INT32 INT16 BYTE |||///// /// /|||第…. 8 7 6 5 4 3 2 1 位|||///// /// /||| …… B7 B6 B5 B4 B3 B2 B1 B0 |||///// uses SysUtils; type TBitCount = (Bit_8 = 8, Bit_16 = 16, Bit_32 = 32); // getbit方法可以输入一个数,查询指定位是1还是0. function getbit(number: Integer; // 要查询位的数 nBit: Byte; // 要查数的第几位 BitCount: TBitCount // 是输入的数的位数,8,16,32 ): Byte; // 函数返回的是要查的数的第几位的值 // SetBit设置一个数的第几位的值为1或0. function SetBit(number: Integer; // 要设置位的数 nBit: Byte; // 数的第几位 BitCount: TBitCount; // 数的位数,8,16,32 value: Byte // 要置1或0,Value只能输入1或0. ): Integer; // 返回修改位后的数 // 取得一个数中从第几个位开始取多少个位的值 function getbits(number: Integer; // 要取位的数 nBit, // 从第几位开始取位 iBit: Byte; // 取多少位 BitCount: TBitCount // 数的位数,8,16,32 ): Integer; // 返回取位后的数 // 这个函数可以把一个数转换为二进制值的字符串 function int2bin(number: Integer; // 要转换的数 BitCount: TBitCount // 数的位数,8,16,32 ): string; // 返回转换后的字符串 implementation /// ////////////////////////////////////////////////////////////////////////////// function getbit(number: Integer; nBit: Byte; BitCount: TBitCount): Byte; begin GetBit := number;
一、使用单元： Use :EXCEL 2000, ComObj 二、定义 var ExcelApp,Sheet,Range: Variant; 注释： ExcelApp 为定义的Excel 对象 Sheet 为定义的工作表（Sheet）对象 Range 为定义的工作表范围 三、关于Excel 对象创建初始化以及工作表、工作表范围的初始化 1. 创建excel对象： ExcelApp := CreateOleObject( 'Excel.Application' ); 2. 显示当前窗口： ExcelApp.Visible := True; 3. 更改Excel 标题栏： ExcelApp.Caption := '应用程序调用Microsoft Excel'; 4. 添加新工作簿： ExcelApp.WorkBooks.Add; 5 打开已存在的工作簿： ExcelApp.WorkBooks.Open(FilePath); 6.设置工作簿默认工作表张数 ExcelApp.SheetsInNewWorkbook := 1; 7.设置工作表名称 ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum].Name := PName; 8.工作表初始化 Sheet:= ExcelApp.Workbooks[WorkbookNum].WorkSheets[WorkSheetNum]; 9.工作表范围初始化 Range := Sheet.Range['A1:DL1'] ; 10.设置第2个工作表为活动工作表： ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate; 三、单元格赋值设置数值类型 1. 给单元格赋值： ExcelApp.Cells[row, column].Value := '第一行第四列'; 或 Sheet.Cells[row, column] := ‘第一行第四列’; 2 清除第一行第四列单元格公式：