var ini:Tinifile;
begin
ini:=Tinifile.Create('E:\MyWork\test2\inifo.ini');
ini.ReadString('sdf','asdf',form1.Edit1.Text);
ini.Free;为什么显示不到呢?代码正确,文件和内容都有阿!!???
begin
ini:=Tinifile.Create('E:\MyWork\test2\inifo.ini');
ini.ReadString('sdf','asdf',form1.Edit1.Text);
ini.Free;为什么显示不到呢?代码正确,文件和内容都有阿!!???
memo1.text:=ini.ReadString('sdf','asdf',form1.Edit1.Text);
这样可能就可以了:)
IniFile:=TIniFile.Create('E:\MyWork\test2\inifo.ini');
constring:=IniFile.ReadString('adf','asdf',form1.Edit1.Text);
IniFile.Destroy;
在INI文件中
[asf]
asdf=驱动程序
ini:Tinifile;
temp:string;
begin
ini:=Tinifile.Create('E:\MyWork\test2\inifo.ini');
temp:=ini.ReadString('sdf','asdf','');
form1.Edit1.Text:=temp;
ini.Free;
form1.Edit1.Text=:=IniFile.ReadString('adf','asdf','')
form1.Edit1.Text=:=IniFile.ReadString('adf','asdf','')