Komplizierte suche in Memo ! Hilfe

[HenKst]

da fehlt ein [rfReplaceall] oder etwas in der art am ende des stringreplace.
Aber das markiert dir immernoch nicht deine zeile

Momentan fällt mir da nichts ein ausser SelStart auf die summe Längen aller zeilen bis zur gefundenen zu setzen und SelLength auf die Länge der dieser Zeile...
Und das auch nur wenn ich SelStart richtig verstanden hab^^

Delphi-Quellcode:

procedure SelectLine (Memo: TMemo; index: integer);
var
  i: integer;
  start: integer;
begin
  start:= 0;
  for i:= 0 to index -1  do begin
    start:= start + length(Memo.Lines[i];
  end;
  Memo.SelStart:= start;
  Memo.SelLength:= length(Memo.lines[index]);
end;

procedure FindLine (memo: TMemo; suchtext1, suchtext2: string);
var 
  i: integer;
begin
for i:= 0 to memo.lines.count-1 do begin
  if pos(suchtext1, memo.lines[i]) <> 0 then begin
    if pos(suchtext2, memo.lines[i]) <> 0 then begin
      find = false;
    end else begin
      find = true;
      SelectLine(memo, i);
      break;
    end;
   end else begin
     find:= false;
  end;
end;

Das sollte dir eine gesuchte Zeile markieren
Ist aber nicht getestet^^