2 Richedit-Texte miteinander verbinden

[Sourcemaker]

Hi,

ich möchte gerne 2 Richedit-Texte miteinander verbinden die dann mit Quickreport ausgedruckt werden.
Ich kann natürlich 2 RTF-Controls nehmen die Texte jeweils laden und anschließend per Clipboard anfügen.
Vielleicht hat jemand eine elegantere Lösung ?


Grüße

Frank

[fkerber]

Hi!

Kenne mich zwar nicht mit Quickreports aus, aber vielleicht einfach so:

Richedit1.Text:=Richedit1.Text+Richedit2.Text; Ciao fkerber

[Sourcemaker]

Hi fKerber,


Richedit1.Text:=Richedit1.Text+Richedit2.Text; Prinzipiell gilt natürlich "think simple" will sagen das habe ich natürlich als erstes probiert.
Aber wenn ich schon das Szenario mit der Zwischenablage aufmache könnte man annehmen das ich mir schon ein wenig Gedanken gemacht habe. Trotzdem danke, hätte ich ja auch sagen können das es "simple" nicht funktioniert.

Grüße

Frank

[fkerber]

Hi!

Und was daran funkioniert nicht?
Wo liegt das konkrete Problem bei dieser Methode?

Ciao fkerber

[Sourcemaker]

Es wird nur der 1. Text ausgegeben. Ich vermute es liegt daran das ein RTF-Text mit einer Anfangssequenz beginnt und mit einer entsprechenden Endesequenz endet. Also hast du:

Delphi-Quellcode:

Anfangssequenz (irgendwelche Schrifteinstellungen)
Text-1
Endesequenz (keine Ahnung)
+
Anfangssequenz (irgendwelche Schrifteinstellungen)
Text-2
Endesequenz (keine Ahnung)

Ich vermute er läuft nur bis zur 1. Endesequenz.

Grüße

Frank

[fkerber]

Hi!

Wenn du aber beide Texte zusammen in einem Richedit hast und dieses dann kopiert dann kann das eigentlich nicht passieren.
Das ist ja genauso, als würdest du die Texte per Zwischenablage kopieren und einfügen. Das wäre mehr als seltsam...

Ciao fkerber

[Sourcemaker]

Das Problem ist das Property Text oder auch Lines enthält nur der reinen Text ohne Formatierung.
Ich habe aber 2 formatierte Texte aus einer Datenbank die ich in einem Control zusammenfügen will.

So wird der Text mit Formatierung zugewiesen:

Delphi-Quellcode:

(* -------------------------------------------------------------------------- *)
(* Setzen des Inhaltes einer TRichEdit-Komponente                             *)
(* -------------------------------------------------------------------------- *)
procedure SetRxRichEditText(const Edit:TRxRichEdit;const chRtfText:string);
var
  stream : TMemoryStream;
  nSize  : integer;
begin
  nSize := Length(chRtfText);
  if nSize>0 then
  begin
    stream := TMemoryStream.Create;
    try
      stream.SetSize(nSize);
      StrLCopy(stream.Memory, PChar(chRtfText), nSize);
      edit.Lines.LoadFromStream(stream);
    except
    end;
    stream.Free;
  end else
    edit.Text := '';
end;

Grüße

Frank