Создание файла

[Хs-You]

Тут вот как ая тема мне надо чтоб при нажатие кнопки(создать) создовался txt файл с введённым именим в Edit1. а в сам документ (txt) чтоб сохранялось то что введётся в Memo1 и как это сделать?

[strannik]

попробуй так:
...
procedure TForm1.Button1Click(Sender: TObject);
var
f : TStringList;
n : integer;
begin
f:=TStringList.Create();
if (edit1.Text<>'') then
begin
for n:=0 to memo1.Lines.Count do
begin
f.Add(memo1.Lines.Strings[n]);
f.SaveToFile(edit1.Text+'.txt');
end;
end
else
begin
showmessage('Имя файла не указано!');
end;
f.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.clear;
edit1.text:='';
end;
...

[Хs-You]

Спасибо помогло!!!

Тема закрыта!

[zetrix]

Не знаю, может можно было так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text<>'') then memo1.SaveToFile(edit1.Text+'.txt')
else showmessage('Имя файла не указано!');
end;

[Xandr]

Люди читайте мануал, зачем же задавать такие детские вопросы.