Question

delphi 自定义函数有什么作用，怎么样写自定义函数，怎么样使用自定义的函数

可以举个例了给我看看吗！！请高手帮忙
本人对自定义函数还不会

Answer 1

delphi 自定义函数就是用来处理某个问题的指针入口，比如说你你可以自定义下两数相加的函数：

function Sum(a,b : integer) : integer;
begin
result := a + b;
end;

调用方法：
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
i := sum(6,5); //11 (求6,5 的和)
end;

追问

还有没有兴其他难度高点的例子，可以举多一个例子给吗

追答

很多呀，你要处理什么问题就可以写相应的处理函数,具体的函数代码，就是你的代码能力了，

发几个我程序刚用到的函数：

function KillTask(ExeFileName:string):integer; //杀死电脑里名为：ExeFileName的所有进程
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while Integer(ContinueLoop) 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;