RichEdit.txt als Stream speichern

**moperswings**

Hallo,

folgender Code funktioniert so weit um einen Text zu speichern - nur:
Ist er auch damit richtig?
Vielleicht kann ein Profi mal einen Blick drauf werfen?
Danke und Grüsse, moperswings

zusammenfalten · markieren

Delphi-Quellcode:

			var

        Stream: TFileStream;

procedure TForm1.open1Click(Sender: TObject);

begin

        try

        If OpenDialog1.Execute then begin

        Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);

        RichEdit1.Lines.LoadFromStream(Stream);

        Stream.Free;

        Stream := nil;

        end;

        except

        Form1.Close;

        end;

end;

procedure TForm1.save1Click(Sender: TObject);

begin

        try

        if SaveDialog1.Execute then begin

        Stream := TFileStream.Create(SaveDialog1.FileName, fmCreate);

        RichEdit1.Lines.SaveToStream(Stream);

        Stream.Free;

        Stream := nil;

        end;

        except

        Form1.Close;

        end;

end;

RichEdit.txt als Stream speichern

RichEdit.txt als Stream speichern

Forumregeln