در جایی که برنامه نصب شده میشه فایل هایی را ذخیره و یا لود کرد.



procedure TFormMain.save(s: string; index: integer);
var
TextFile: TStringList;
FileName: string;
begin
TextFile := TStringList.Create;
try
FileName := Format('%s/File'+IntToStr(index)+'.txt', [GetHomePath]);
TextFile.Text := s;
TextFile.SaveToFile(FileName);
finally
TextFile.Free;
end;
end;


function TFormMain.load(index: integer): string;
var
TextFile: TStringList;
FileName,ss: string;
begin
TextFile := TStringList.Create;
try
FileName := Format('%s/File'+IntToStr(index)+'.txt', [GetHomePath]);
if FileExists(FileName) then
begin
TextFile.LoadFromFile(FileName);
ss := TextFile.Text
end
else
ShowMessage('File not exists!');
finally
TextFile.Free;
end;
result := ss;
end;