hallo,
von einen richedit zu einen anderen richedit mit stream ist kein problem, aber ich möchte von mehreren
richedit's ein savestream machen und diesen datenstream dann in ein einziges richedit wieder laden und
das geht nicht
er speichert die einzelnen texte von 3 richedit's, das klappt !
Delphi-Quellcode:
procedure TForm1.saveclick(Sender: TObject);
var Stream: TFileStream;
begin
try
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;
except
Form1.Close;
end;
end;
aber er ladet die 3 texte nicht in ein einzelnes richedit zurück, sondern nur den ersten stream (RichEdit1.Lines.SaveToStream(Stream)
Delphi-Quellcode:
procedure TForm2.ladenClick(Sender: TObject);
var Stream: TFileStream;
begin
try
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;
except
Form1.Close;
end;
end;
geht das überhaupt ?
mfg vader