procedure SaveSettingString(Section, Name, Value: string);
var
ini: TIniFile;
begin
ini := TIniFile.Create(System.IOUtils.TPath.GetDocumentsPath + System.SysUtils.PathDelim + 'config.ini');
try
ini.WriteString(Section, Name, Value);
finally
ini.Free;
end;
end;
function LoadSettingString(Section, Name, Value: string): string;
var
ini: TIniFile;
begin
ini := TIniFile.Create(System.IOUtils.TPath.GetDocumentsPath + System.SysUtils.PathDelim + 'config.ini');
try
Result := ini.ReadString(Section, Name, Value);
finally
ini.Free;
end;
end;