Запись в файл

[CkooTuHa]

Как данные из Edit1.text, Edit2,text записать в текстовый документ?
Может кто-нибудь помочь?

[min@y™]

записать в текстовый документ?

а что подразумевается под этим термином к данном контексте?

[SLAUR]

var
  Form1: TForm1;
   F1:text;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(F1,'C:\my.txt') ;
{$I-}Rewrite(F1) ;    {$I+}If IOResult=0 then  begin  WriteLn(F1,Edit1.Text);end;
{$I-} CloseFile(F1)    {$I+}; If IOResult=0 then;
end;

end.

[GreenWizard]

SLAUR, попытка хорошая, но:
1) использование глобальных переменных
2) использование устаревших функций (они ещё со времён TP)
3) использование директив компилятора
это было бы простительно, если бы задача стояла какая-то специфическая, а так...

Запись в файл, в самом простом и адекватном виде, можно реализовать, например, так:

procedure saveText(const FileName, Data: string);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Add(Data);
    SL.SaveToFile(FileName);
  finally
    SL.Free;
  end;
end.

НЕ самый эффективный способ, но зато надёжный (обработка ошибок и извращения с кодировками выполняет код VCL, который всяко лучше кода от новичков)
---------
ну и далее: saveText(файл, Edit1.Text + #13#10 + Edit2.Text);
либо же, что более предпочтительнее при работе с однострочными полями ввода, лучше взять за основу код выше, но SL.Add(Data); заменить на SL.Add(Edit1.Text); и SL.Add(Edit2.Text);

[northener]

Запись в файл, в самом простом и адекватном виде, можно реализовать, например, так:

  with TFileStream.Create('saveedit.txt',fmCreate,fmShareDenyNone) do try
    Write(Edit1.Text[1],Length(Edit1.Text));
  finally
    Free;
  end;

[Аватар]

Все забыли, что файл может быть не создан по какой-то причине. Значит еще нужен try ... except. Даже в самом простом виде

[northener]

Сообщение от Аватар

Все забыли, что файл может быть не создан по какой-то причине. Значит еще нужен try ... except. Даже в самом простом виде

В самом простом виде

try
  DoSomething;
except
end;

лучше не надо