Zusammenfügen von 2 RTF Texten

[arnof]

die Zwischenablage habe ich noch in der produktiv Version drin (habe gestern festgestellt). Da diverse andere Tipps die ich mir auch hier und sonstwo zusammen gesucht hatte zwar bei mir, aber bei einigen Kunden nicht gingen (RTF Texte sonst woher kopiert). Auch die Zwischenablage macht bei einigen Kunden immer wieder Probleme das sind zwar nur wenige aber, aber jeden Monat ist mind. einer dabei ....

Nun hier mal Code, der bei mir anstandslos geht:

Delphi-Quellcode:

function POSR(m,s:string):integer;
begin
 result:=POS(m,ReverseString(s));
 if result>0 then result:=length(s)-result;
end;

function RTF2RTF(rtf1,rtf2 :string):string;
begin
  if UpperCase(Copy(Rtf1, 1, 5)) = '{\RTF' then begin // RTF-Feld
   RTF1:=Copy(RTF1,1,POSR('}',RTF1));        /// letzte Klammer entfernen
   if UpperCase(Copy(Rtf2, 1, 5)) = '{\RTF' then begin // RTF-Feld
    RTF2:=Copy(RTF2,POS('{',Copy(RTF1,2,length(RTF1)))+1,length(RTF2));
   end else RTF2:=RTF2+'}';
  end else begin
   if UpperCase(Copy(Rtf2, 1, 5)) = '{\RTF' then begin // RTF-Feld
    RTF1:=Copy(RTF2,1,POS('{',RTF1)-1)+RTF1;
   end;
  end;
  result:=RTF1+RTF2;
end;