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