Suchen in einer Liste

[scp]

So schreibt er die gefundenen Indexe in Edit2:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Item   : TIntArray;
  i : integer;
begin
  Edit1.Text := IntToStr(FindStringInListBox(Edit3.Text, Item, 0));

  If (length(item) > 0) then
    Edit2.Text := IntToStr(item[0])
  else
    Edit2.Text := '';
  for i := 1 to length(item)-1 do
    Edit2.Text := Edit2.Text + ', ' + IntToStr(item[i]);
end;