Thema: Delphi speichern von texten

Einzelnen Beitrag anzeigen

Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#11

Re: speichern von texten

  Alt 9. Sep 2008, 19:07
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^^
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat