Создание тхт файла на винчестере...

[Alex Cones]

Не функции а тип текстового файла.

Позвольте, позвольте, когда я писал свой пост, выше меня были паскалевские Assign и Close

[Stilet]

Неа. Не катит отмазка )))))

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   var t:TextFile;
begin
 Assign(t,'c:\temp\das');
 Rewrite(t);
 close(t);
  { TODO -oUser -cConsole Main : Insert code here }
end.

Запусти в любом Делфи - зуб даю (гейтса) что сработает везде

[Alex Cones]

Товарищ просил сохранение в файл по нажатию на батон. Где у Вас в коде батон? А? Нету? А усы и подделать можно

[misher]

А как написать чтобы сохранялась в определленной папке, будующей программы?

[artemavd]

Можно вообще по-тупому сделать . Вот так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Memo1.Text:=Form1.Edit1.Text;
 Form1.Memo1.Lines.SaveToFile('1.txt');
end;

но это по-тупому, но, работает же)

А как написать чтобы сохранялась в определленной папке, будующей программы?

А откуда путь берется до папки?

[misher]

В каком смысле путь до папки?
Если я правильно понял(то будующий пользователь может её на любой диск закинуть...)

[artemavd]

Ну тогда мой код можно изменить на такой:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Form1.SaveDialog1.Execute then
 begin
  Form1.Memo1.Text:=Form1.Edit1.Text;
  Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName + '.txt');
 end;
end;

созданный файл сохранится туда, где указал пользователь.

-------
Вопрос можно считать решеным?

[GunSmoker]

Form1.Memo1

Зачем плохому учите?

[artemavd]

Зачем плохому учите?

Я не учу плохому. Я всего лишь помог кодом. А то, что я так пишу, то у меня просто такая привычка, мой стиль (вообще, я стараюсь всегда код аккуратно оформлять). Зато я лично точно знаю, к какому компоненту и на какой форме идет обращение, если форм несколько. Не вижу в этом ничего плохого.

[Alex Cones]

Угу, вот только разрешение у файла будет не очень красивое, если пользователь додумается его сам написать.

Решение - поставить фильтр в SaveDialog.