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 ;
//正确操作ini文件方法
if fileExists('ini文件路径') then
begin
try
loadfile :=TIniFile.Create('ini文件路径');
loadfile.Readstring(....);
......
finally
loadfile.free;
end;
end;