Richedit zeilen durchsuchen

[marabu]

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