Inhalt von TRichEdit ohne Verlust von DefAttributes kopieren

[smart]

Wenn man 1 TRichEdit und 1 TDBRichEdit auf einer Form hat und möchte den Text vom TRichEdit in dem TDBRichEdit kopieren, wie macht man das ohne die DefAttributes zu verlieren.
TDBRichEdit1.Text := RichEdit2.Text; geht nicht. Alle DefAttributes gehen verloren.

[Sharky]

Hai Heike,

meinst Du so etwas: ?

Delphi-Quellcode:

Procedure CopyRichEdit (aSource, aDestination : TRichEdit);
var
  RichStream : TMemoryStream;
begin
  RichStream := TMemoryStream.Create;
  try
    aSource.Lines.SaveToStream(RichStream);
    RichStream.Position := 0;
    aDestination.Lines.LoadFromStream(RichStream);
  finally
    RichStream.Free;
  end;
end;

[smart]

Sorry, Ich habe es falsch dargestellt. Den Text von einem TRichEdit in einem TDBRichEdit kopieren, ohne dass farbiger Text usw. verloren geht.

[Sharky]

Geht das nicht mit dem Code oben wenn Du aDestitination nicht als TRichEdit sondern TDBRichEdit deklarierst?

[shmia]

Schon versucht: ??
TDBRichEdit1.lines.Assign(RichEdit2.Lines);

[smart]

Zitat von shmia:

Schon versucht: ??
TDBRichEdit1.lines.Assign(RichEdit2.Lines);

Ja, habe ich versucht. Geht aber leider auch nicht.

[smart]

Zitat von Sharky:

Geht das nicht mit dem Code oben wenn Du aDestitination nicht als TRichEdit sondern TDBRichEdit deklarierst?

Dann bekomme ich eine Fehlermeldung, dass die Typen nicht gleich sind.

[shmia]

Dann hier noch eine weitere Variante:

Delphi-Quellcode:

Procedure CopyRichEditLines(aSource, aDestination : TStrings); 
var 
  RichStream : TMemoryStream; 
begin 
  RichStream := TMemoryStream.Create; 
  try 
    aSource.SaveToStream(RichStream); 
    RichStream.Position := 0; 
    aDestination.LoadFromStream(RichStream); 
  finally 
    RichStream.Free; 
  end; 
end;

Anwendung:

Delphi-Quellcode:

Query1.Edit;  // wir müssen im Edit-Mode sein
CopyRichEditLines(RichEdit1.Lines, DBRichEdit1.Lines);

[smart]

Zitat von shmia:

Dann hier noch eine weitere Variante:

Vielen Dank für Deine Mühe. Klappt aber auch nicht.

[Sharky]

Zitat von smart:

..Klappt aber auch nicht.

Kannst Du mal ein kurzes Demoprojekt anhängen?