Moin Citybreaker,
Sorry.
Ist wohl noch zu früh
Also noch einmal von Vorne, diesmal ausführlich (Strafe muss sein
):
Delphi-Quellcode:
var
iPos : integer;
iLine : integer;
begin
// Wo befindet sich der gesuchte String?
iPos := ('SuchString',Memo1.Text);
// Nichts gefunden, fertig
if iPos = 0 then exit;
// Zeile in der sich die gesuchte Position befindet
// (-1, da der Zeichenindex 0 basiert ist)
iLine := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,iPos-1,0);
// Zeichenposition des ersten Zeichens dieser Zeile
// (Diesmal nicht -1, da EM_LINEFROMCHAR schon einen 0 basierten Wert liefert)
Memo1.SelStart := SendMessage(Memo1.Handle,EM_LINEINDEX,iLine,0);
// Zeile markieren
Memo1.SelLength := length(Memo1.Lines[iLine]);
end;
Direkt hier reingeschrieben, also ungetestet, sollte aber richtig sein.