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^^