Stringteil im String finden

[TRUCKERmas]

Ich möchste gerne eine Schleife durchlaufen lassen
die in einer TStringList
jede Zeile nach einem bestimmten String durchsucht und
mir dann sagt welche Zeile denn nun meinen gesuchten string enthält.

[Christian Seehase]

Und an welcher Stelle hast Du nun ein Problem?

[Popov]

Eine Möglichkeit:

Delphi-Quellcode:

var
  sl: TStringList;
  i: Integer;
  s: String;
begin
  sl := TStringList.Create;
  try
    sl.Text := ListBox1.Items.Text; // irgendein Inhalt in Stringlist kopieren

    s := 'sl'; //gesuchter Text

    for i := 0 to sl.Count - 1 do
    begin
      if Pos(s, sl[i]) > 0 then
        ShowMessage('"' + s + '" in Zeile ' + IntToStr(i));
    end;
  finally
    sl.Free;
  end;
end;

[TRUCKERmas]

Hey Popov, das ist genau was ich gesucht habe, vielen dank!