//正确操作ini文件方法 if fileExists('ini文件路径') then begin try loadfile :=TIniFile.Create('ini文件路径'); loadfile.Readstring(....); ...... finally loadfile.free; end; end;
use Inifiles;procedure TFYWDataImport.readini(); var MyIniFile : TIniFile; FileName : String; begin FileName :='c:\System.Ini'; if FileExists(FileName) then begin MyIniFile:=TInifile.Create(FileName); with MyIniFile do begin Edit1.Text :=ReadString('Database_Set',Cmbdr_sjly.Text ,''); end; MyIniFile.Free; end; end ;
if fileExists('ini文件路径') then
begin
try
loadfile :=TIniFile.Create('ini文件路径');
loadfile.Readstring(....);
......
finally
loadfile.free;
end;
end;
Inifiles;procedure TFYWDataImport.readini();
var
MyIniFile : TIniFile;
FileName : String;
begin
FileName :='c:\System.Ini';
if FileExists(FileName) then begin
MyIniFile:=TInifile.Create(FileName);
with MyIniFile do begin
Edit1.Text :=ReadString('Database_Set',Cmbdr_sjly.Text ,'');
end;
MyIniFile.Free;
end;
end ;
不是新建个吗?
我已经有文件的啊!
我试了下, loadfile:=TIniFile.create();
他说没有足够的参数,不加(),也不行