Требуется написать блокнот на делфи. написал всё, кроме кнопки "сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном. : )
Нужно добавить компонент "SaveDialog" из вкладки "Dialogs" сначала:) Потом примерно такой код:
procedure TForm1.FormCreate(Sender: TObject); var SaveF: TextFile; begin if (SaveDialog1.Execute) then begin AssignFile(SaveF, SaveDialog1.FileName); Rewrite(SaveF); Write(SaveF, Memo1.Text); CloseFile(SaveF); end; end;
procedure TForm1.FormCreate(Sender: TObject);
var SaveF: TextFile;
begin
if (SaveDialog1.Execute) then
begin
AssignFile(SaveF, SaveDialog1.FileName);
Rewrite(SaveF);
Write(SaveF, Memo1.Text);
CloseFile(SaveF);
end;
end;