ich hab mal hier einen Versuch gestartet
Delphi-Quellcode:
procedure Tform2.ersetzeText(bildschirmrtf:TRichEdit;finden,ersetzen:String);
var position, lf, le : integer;
helprtf : TRichEdit;
begin
helprtf := TRichEdit.Create(self);
helprtf.parent := bildschirmrtf.Parent;
lf := length(finden);
le := length(ersetzen);
helprtf.Text := ersetzen;
helprtf.SelStart := pos(ersetzen,helprtf.text)-1;
helprtf.SelLength := le;
helprtf.CutToClipboard;
bildschirmrtf.SelStart := pos(finden,bildschirmrtf.text)-1;
bildschirmrtf.SelLength := lf;
bildschirmrtf.PasteFromClipboard;
helprtf.destroy;
end;
Ersetzen tut er es aber leider ist der neu Text nicht im selben Format wie der ersetzte.
Wie kann ich die diese Formatatribute am besten zwischenspeichern und dann wieder zurückschreiben ? Vor allem weil ja die Textlängen verschieden sein können !