speichern von texten

[lbccaleb]

Ja oder so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile; //Variable deklarieren

begin
  if SaveDialog1.execute then //Opendialog öffnen und auf eingabe warten
    begin;
      AssignFile(F, SaveDialog1.Filename); //Zu speichernde Datei öffnen
      Rewrite(F); //Carret setzen
      WriteLn(F, Edit1.Text); //Den Text aus der EditBox in die Datei schreiben
      CloseFile(F); //Datei schließen
    end;
end;

ps: aus dem steh greif geschrieben....

Edit: Savedialog, nicht Opendialog^^