Richedittext nach Richedit ?

[Flare]

Zitat:

Delphi-Quellcode:

if SaveDialog1.Execute then 
   begin 
    try 
     Stream := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareExclusive); 
     RichEdit1.Lines.SaveToStream(Stream); 
     RichEdit2.Lines.SaveToStream(Stream); 
      RichEdit3.Lines.SaveToStream(Stream); 
    finally 
     Stream.Free; 
     Stream := nil; 
    end; 
   end;

Delphi-Quellcode:

if OpenDialog1.Execute then 
   begin 
    try 
     Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); 
     RichEdit1.Lines.LoadFromStream(Stream); 
         finally 
     Stream.Free; 
     Stream := nil; 
    end; 
   end;

Wenn du es so machst, wieso machst du dann nicht gleich ne Datei draus, keinen Stream. Ich meine du speicherst doch den Stream ab, rufst ihn also nicht gleich wieder ab. Ich würde es mal mit einer Datei versuchen.

Mfg, Flare