Hallo lucius,
herzlich willkommen in der Delphi-PRAXiS.
Wusstest du, dass das RichEdit control dir einige hilfreiche Methoden zur Lösung deines Problems zur Verfügung stellt?
Delphi-Quellcode:
procedure TDemoForm.FindButtonClick(Sender: TObject);
var
iLine, iFound, iStart: integer;
begin
with RichEdit do begin
// character offset der Fundstelle
iFound := FindText(FindEdit.Text, 0, GetTextLen, []);
// line index der Fundstelle
iLine := Perform(EM_LINEFROMCHAR, iFound, 0);
// character offset der Zeile mit der Fundstelle
iStart := Perform(EM_LINEINDEX, i, 0);
end;
Allerdings glaube ich aufgrund verschiedener Indizien, dass du eine
XML Datei durchsuchst. Wenn die Datei nicht gleichzeitig interaktiv bearbeitet werden soll, dann würde ich eher einen
XML Parser für das Suchen und Ersetzen verwenden.
Grüße vom marabu