Question

delphi7中，自定义函数在程序中什么编写

Answer 1

给你个列子
声明一个函数
//ping网络
function fucPing(url: String): Boolean;

函数实现
//ping网络
function fucPing(url: String): Boolean;
var
aIdICMPClient: TIdICMPClient;
begin
aIdICMPClient:= TIdICMPClient.Create(nil);
aIdIcmpclient.ReceiveTimeout:=500;
aIdICMPClient.Host:= url;
try
aIdICMPClient.Ping();
except
Result:= false;
end;
if (aidicmpclient.ReplyStatus.fromipaddress<>'0.0.0.0')
and (aidicmpclient.ReplyStatus.fromipaddress<>'') then
result:= true
else
result:= false;
aIdICMPClient.Free;
end;

Answer 2

function test(a:string):String
begin
;
end;