Question

delphi函数调用

我要调用下面这个函数，但是不知道用什么方法，我自己写的是edit1.Text := GetLocalIP();
很不幸，没用，提示：
[错误] Unit1.pas(56): Not enough actual parameters
[致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
请高手指导下，本人正在学delphi，初学者，呵呵。
function GetLocalIP(var LocalIp: string): Boolean;
var
HostEnt: PHostEnt;
Ip: string;
addr: pchar;
Buffer: array [0..63] of char;
GInitData: TWSADATA;
begin
Result := False;
try
WSAStartup(2, GInitData);
GetHostName(Buffer, SizeOf(Buffer));
HostEnt := GetHostByName(buffer);
if HostEnt = nil then Exit;
addr := HostEnt^.h_addr_list^;
ip := Format('%d.%d.%d.%d', [byte(addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
LocalIp := Ip;
Result := True;
finally
WSACleanup;
end;
end;
我知道缺少参数，我各个方法都试过一遍，发现没用，不知道是不是我哪里少了什么，请提供个完整的例子我研究研究

Answer 1

你没传参数啊兄弟,
edit1.Text := GetLocalIP(这里参数你啥也没写);

你看你自己声明的方法function GetLocalIP(var LocalIp: string): Boolean; 要求传个string型的参数 ,

提示 咱没用了 直接了当就告诉你 没有足够的参数了
[错误] Unit1.pas(56): Not enough actual parameters

Answer 2

缺少传入参数

var
s :string;
begin
s := '';
if GetLocalIP(s) then
edit1.Text := s;
end;

Answer 3

读取本机IP地址，只要加入一个IP控件取得它的IP属性即可。