Hilfe zur Stringlist

[TeronG]

Zitat von freak4fun:

Hallo ,
sowas?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ListBox1.Count - 1 do
    if Pos('office', ListBox1.Items.Strings[i]) <> 0 then
      ShowMessage(IntToStr(i) + ': ' + ListBox1.Items.Strings[i]);
end;

Ist sehr ähnlich dem Beispiel im Vorpost.

MfG
freak

Netter Code .. funtzen auch (das mit dem durchlaufen der gesammten liste) aber warum benutzt du/ihr nicht .IndexOf('blub') ist doch schöner zu Handeln