Cześć. Mam pytanie, bo przekombinowałem. Chce zapisać kilka plików naraz .txt, z 5 komponentów TMemo o różnej zawartości i o różnych nazwach plików z TEdit, po wskazaniu folderu w którym mają się zapisać lecz dodatkowo nowo utworzone pliki (ich ścieżki relatywne) od razu chce dodać do Listboxa. Jak to powinno poprawnie powinno wyglądać:
procedure TForm1.Button1Click(Sender: TObject);
var
Path,SelectedDir: String;
begin
Path := extractfilepath(paramstr(0)) + 'Pliki\';
if SelectDirectory('Wybierz folder', Path, SelectedDir) then
begin
Memo1.Lines.SaveToFile(Edit1.Text + '.txt');
Memo2.Lines.SaveToFile(Edit2.Text + '.txt');
//ListBox1.Items.Add(ExtractRelativePath(extractfilepath(paramstr(0) + Edit1.Text)));
// Listbox1.Items.Add(ExtractRelativePath(extractfilepath(paramstr(0) + Edit2.Text)));
end;
end;