EDIT
Ini写Ini配置
uses IniFiles;
{$R *.dfm}
function IniFileName:string;
begin
Result:=ExtractFilePath(Application.ExeName)+‘Settings.ini‘;
end;
procedure SaveConfig(Edit:TEdit);
begin
with TIniFile.Create(IniFileName) do
begin
try
WriteString(‘Path‘,‘Edit1.text‘,Edit.Text);
Finally
Free;
end;
end;
end;
procedure ReadConfig(Edit:TEdit);
var INI: TIniFile;
begin
with TIniFile.Create(IniFileName) do
begin
try
ReadString(‘Path‘,‘Edit1.text‘,‘‘);
Finally
Free;
end;
end;
end;
EDIT Ini写Ini配置,布布扣,bubuko.com
EDIT Ini写Ini配置
原文：http://www.cnblogs.com/xe2011/p/3876192.html
