RichEdit , Text ersetzen aber Formate erhalten

[JoelH]

das Programm schaufelt eh Daten ins Clipboard und die eghen weiter nach Word, daher ist das Clipboard eh in gebrauch. Ausserdem war mir nicht ganz klar wie ich das sonst handlen soll, also hab ich es mal übers Clipboard realisiert um zu sehen wie, bzw. ob überhaupt, es funktioniert.Ich hab noch ein Paar probleme damit aebr es wird langsam.

[Alexander]

Du kannst die Zwischenablage ja vorher "sichern", dann deine SAchen reinschieben und wieder die alte Zwischenablage herstellen. Das wäre denke ich wesentlich besser...
Ich sichere mir zb kurzzeitug meinen DelphiSource darin, wenn ich was ausprobieren möchte...Es gibt zwar noch ne Rückgängig-Funktion, aber wenn man dann mal auf Speichern kommt....

[Christian Seehase]

Moin Joel,

Zitat von JoelH:

das Programm schaufelt eh Daten ins Clipboard und die eghen weiter nach Word

dadurch wird's ja nicht wirklich besser

Vielleicht kannst Du Dir ja mit einer Temp Datei behelfen, oder einem MemoryStream.

[JoelH]

ihr verkennt die Situation, das sind gewachsene Strukturen, die ich nur weiterbetreue, die sind nicht von mir, darum will ich ja den Wordkram ablösen und im rtf Format weiterentwickeln. Das ganze dann irgenwann Datenbankbasierend, ohne irgendwelche M$ Komponenten irgendeiner Art, naja aber da ich noch nichts mit den Richtextboxen gemacht hab war es heute einfach nur ein Versuch. Mir is auch klar dass dies nicht der Weissheit letzter Schluss ist, es sind quasi empierische Versuche mich in die Materie einzuarbeiten.
Trotzdem, wer Tips hat oder Anleitunen Tutorials, links zum Thema RTF und Delphi(4) dem bin ich sehr dankbar !

[Christian Seehase]

Moin Joel,

okay, das kann man fast schon gelten lassen

Was meinst Du mit Tutorials zum Thema RTF?
Das Format kannst Du Dir bei www.wotsit.org besorgen.
Ausserdem hält auch das PSDK so manche Information bereit was mit RichEdit so möglich ist, aber bei Delphi nicht implementiert wurde, teilweise weil es das bei der jeweilgen Version noch nicht gab.

[joehd]

Hy das ist zwar ein alter Code aber ich war mit der Lösung nicht glücklich. Hatten ja einige vorher schon geschrieben. Hier meine Lösung ohne Hilfs RTF

Delphi-Quellcode:

///////////////////////// ERSETZE IM RTF ////////////////////////////////
procedure ersetzeText(myrtf:TRichEdit;finden,ersetzen:String);
var position, lf, le : integer;
    attrib : TTextattributes;
begin
 
  lf := length(finden);
  le := length(ersetzen);
  if pos(finden,myrtf.text) > 0  then
  Begin
   myrtf.SelStart := pos(finden,myrtf.text)-1;
   myrtf.SelLength := lf;
   attrib := myrtf.SelAttributes;
   myrtf.SelText := ersetzen;
   myrtf.SelLength :=  le; 
   myrtf.SelAttributes := attrib;
  End;
end;