Einzelnen Beitrag anzeigen

Benutzerbild von Jens Schumann
Jens Schumann

Registriert seit: 27. Apr 2003
Ort: Bad Honnef
1.644 Beiträge
 
Delphi 2009 Professional
 
#1

WinForms: Textdatei in Textbox laden und speichern

  Alt 23. Jan 2004, 19:50
Hallo
das ist mein Source um eine einfache Textdatei in einer Textbox darzustellen und zu speichern.
Irgendwie finde ich das der Umweg über StreamReader und StreamWriter ganz schön groß ist.
Oder habe ich hier von hinten durch die Brust ins Auge geschossen ?

Delphi-Quellcode:
procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
// Inhalt von TextBox1 speichern
var
  sr : StreamWriter;
begin
  sr:=StreamWriter.Create(FFilename);
  sr.Write(TextBox1.Text);
  sr.Close;
end;

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
// Textdatei öffnen und in TextBox1 darstellen
var
  sr : StreamReader;
begin
  IF OpenFileDialog.ShowDialog()=System.Windows.Forms.DialogResult.OK then
    begin
    Label1.Text:=OpenFileDialog.FileName;
    FFilename:=OpenFileDialog.FileName;
    sr:=StreamReader.Create(FFilename);
    TextBox1.Text:=sr.ReadToEnd;
    sr.Close;
    end;
end;
  Mit Zitat antworten Zitat