[Bloo]

Здравствуйте!
Подскажите пожалуйста, как сохранить текст из Memo1 в формат '.pas' (Delphi, Pascal) автоматически в папку, заданную в коде программы.

Т.е. при нажатии кнопки Button1 не будет открываться окно для того, чтобы мы указали имя файла и выбрали путь его сохранения, а просто
нажали кнопку и всё, а наш файл уже сохранился там, где надо.

Вот мой код, но здесь обычное сохранение:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.pas');
end;

[Black Raider]

Так вы ж сами все написали:

Код:

procedure TForm1.Button1Click(Sender: TObject);
//var f:textfile; эт вообще не надо:)
var FileName:string;
begin
//if SaveDialog1.Execute then это тогда тоже
FileName:='E:\test.pas';
Memo1.Lines.SaveToFile(FileName);
end;

[ЖабаДушитКота]

Эх, а как сообщение то свое совсем удалить?