procedure TFileCopy.ReadIniFile();
var
Inifile: TIniFile;
begin
IniFile:=TIniFile.Create('files.ini');
if IniFile = nil then
begin
exit;
end;
Inifile.ReadString('top1','src',edtSrces.Text); //top1 标签名-段名 edtsrces.Test-要存的string
Inifile.ReadString('top1','des',edtDest.Text);
Inifile.ReadString('top1','types',edtTypes.Text);
Inifile.Free;
end;
procedure TFileCopy.WriteIniFile();
var
Inifile: TIniFile;
begin
IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'files.ini');
if IniFile = nil then
begin
ShowMessage('打开ini失败');
exit;
end;
if edtSrces.Text<>'' then
Inifile.WriteString('top1','src',edtSrces.Text);
if edtDest.Text<>'' then
Inifile.WriteString('top1','dest',edtDest.Text);
if edtTypes.Text<>'' then
Inifile.WriteString('top1','types',edtTypes.Text);
Inifile.Destroy;
end;