[Annihilator]

Сообщение от Erilar

Как найти понял, А как можно теперь, чтобы он выделил эту строку?

Код:

var
  i: integer;
  Find: string;
begin
  Find := Edit.text;
  for i := 0 to LBox.Items.Count - 1 do
    if Pos(Find, LBox.Items.Strings[i]) <> 0
      then showmessage('Нашел!');

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add('1');
  ListBox1.Items.Add('2');
  {This will fail on a single selection ListBox}
  // ListBox1.Selected[1] := true;
  ListBox1.ItemIndex := 1; {This is ok}
end;