ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от bogger

Скажите код чтоб кликнуть по button1 и в директорие(как менять директорию что в Windows файл записавался) где прога создался тхт файл с сообщением внутри?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;
   fName: String[80];
   begin
 
   fName := '1.txt;
   AssignFile(f, fName);
   Rewrite(f); 
   writeln(f, 'Твое сообщение');
   CloseFile(f);

   MessageDlg('сообщение записанов в файл 1.txt',mtInformation,[mbOk],0);
end;