Richedittext nach Richedit ?

[mOzZzI]

Zitat:

Zitat von Vader

hallo,

nein es ist nicht alles rot, hast du ein beispiel mit den streams ?
mfg vader

Da gibts ein gutes Tut!

http://www.dsdt.info/tutorials/streams/

Grüße Philipp

[marabu]

Alternativ geht es auch über TOM: klick

Grüße vom marabu

[Vader]

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

[marabu]

Hallo Vader.

Zitat:

Zitat von Vader

ich möchte von mehreren richedit's ein savestream machen und diesen datenstream dann in ein einziges richedit wieder laden und das geht nicht

Stimmt.

Zitat:

Zitat von Vader

geht das überhaupt?

Nein.

Der Hintergrund ist, dass eine RTF-Datei einen Aufbau hat, der eine einfache Verkettung nicht zulässt. Genau das versuchst du aber mit deinen Streams.

Grüße vom marabu

[Vader]

gibt es eine andere lösung ?
mfg vader

[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

[marabu]

Zitat:

Zitat von Vader

gibt es eine andere lösung ?

Ja sicher - hatte ich in Beitrag #12 verlinkt.

marabu

[Vader]

hallo,

habe probleme mit der unit tom, compilert nicht !
mfg vader

[marabu]

Du hast in der Eile vergessen den Compiler-Fehler mitzuteilen.

marabu

[Vader]

[Fehler] tom.pas(64): Ungültige Compileranweisung: 'VARPROPSETTER'
[Fataler Fehler] Unit1.pas(8): Verwendete Unit 'TOM.pas' kann nicht compiliert werden
mfg vader