Question

Delphi 函数

自己写了一个读取ini的函数
Function Tform1.GetiniStr(name:String;keyword:String):String;
var
FileName:String;
myinifile:Tinifile;
begin
Filename:=ExtractFilePath(Paramstr(0))+'Config.ini';
myinifile:=Tinifile.Create(filename);
myinifile.ReadString(name,keyword,'不存在');
end;
编译完成后，调用
edit1.text:=GetiniStr('更新时间','时间');
但是edit1.text没有值，但是我的ini文件是存在的
请问我的函数体是哪没写对

Answer 1

你的函数没有返回值，怎么会有结果呢？
给你修改了一下，你试试
Function Tform1.GetiniStr(name:String;keyword:String):String;
var
FileName:String;
myinifile:Tinifile;
begin
Filename:=ExtractFilePath(Paramstr(0))+'Config.ini';
myinifile:=Tinifile.Create(filename);
result:=myinifile.ReadString(name,keyword,'不存在'); //加上这句
end;

Answer 2

你试试看这种格式
edit1.Text:=MyIniFile.ReadString('Login','User','');