Помогите написать программу на Delphi

← →
Abdul (2011-10-26 19:31) [0]

Доброго времени суток
Мне нужно написать программу на Delphi,которая
будет действовать так:
В списке ListBox много фамилий.
Пользователь в поле Edit введён искомую фамилию.
А при нажатии кнопки,программа проверит если в списке эта фамилия,и если есть то укажет на неё.

Вот как то так

ПОМОГИТЕ ПОЖАЛУЙСТА
Спасибо за внимание

← →
MBo © (2011-10-26 19:45) [1]

у ListBox.Items есть метод для поиска строки

← →
Faceless © (2011-10-26 19:49) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
N: Integer;
begin
N := ListBox1.Items.IndexOf(Edit1.Text);
if N <> -1 then
ListBox1.ItemIndex := N;
end;

> Faceless © (26.10.11 19:49) [2]

можно сократить, если допустимо присваивание -1 (непомню про делфи)
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.ItemIndex := ListBox1.Items.IndexOf(Edit1.Text);
end;

Помогите написать программу на Delphi Найти похожие ветки