In Memo suchen und zur zeile springen

[BBoy]

Ich nutze folgenden Code um das Memo zu durchsuchen:

Delphi-Quellcode:

   for i := 0 to memo4.lines.Count-1 do begin
      if pos('test', memo4.lines[i]) <> 0 then begin
      // hier soll die routine hin wo mir die zeile anzeigt...
         break;
      end;
   end;

Er findet auch das gesuchte, aber nun möchte ich das die Zeile angeziegt und markiert wird in der das gesuchte gefunden wurde.
Kann mir bitte jemand sagen wie das geht? Danke.

[Klaus01]

Um diese Problem zu lösen kannst Du mit SelStart und SelLength arbeiten.

Dies wirft aber wieder ein kleines Problem auf, das SelStart auf Zeichenbasis arbeitet
und nichts von der Zeilenanordnung des Memos weiß.
Du müßtest also hergehen und die Anzahl der Zeichen der Zeilen die vor der gefundenen Zeile liegen ermitteln.
Pro Zeile mußt Du dann wahrscheinlich noch 2 Zeichen für #13#10 hinzufügen, hängt aber davon ab wie Du zählst.

Grüße
Klaus

[ste_ett]

Mit

TMemo.SelStart und

TMemo.SelLength kannst du ein Textstück in einem Memo markieren.

Kleines Beispiel.
QnD!

Delphi-Quellcode:

var
  i, iLen, iPos: Integer;
  s: String;
begin
  iLen := 0;
  s := Edit1.Text;
  for i := 0 to Memo1.Lines.Count-1 do
  begin
    iPos := Pos(s, Memo1.Lines[i]);
    if (iPos <> 0) then
    begin
      Memo1.SelStart := iLen + iPos -1;
      Memo1.SelLength := Length(s);
      Memo1.SetFocus;

      Break;
    end
    else
      Inc(iLen, Length(Memo1.Lines[i]));
  end;
end;

[BBoy]

Hey klasse, danke euch beiden.
Beim Code von ste_ett gab es erst probleme, da er nicht die richtige Position gefunden hatte. Aber danke dem Hinweis vom Klaus01, dass man noch 2 zeichen hinzufügen muss, klappt es jetzt prima.

Hier die verbesserte Zeile: also grade +2 angehängt.

Inc(iLen, Length(Memo4.Lines[i])+2);