Текущий архив: 2012.02.05;
Скачать: CL | DM;
Вниз
Помогите написать программу на 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;
← →
KilkennyCat © (2011-10-26 21:14) [3]
> Faceless © (26.10.11 19:49) [2]
можно сократить, если допустимо присваивание -1 (непомню про делфи)
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.ItemIndex := ListBox1.Items.IndexOf(Edit1.Text);
end;
Страницы: 1 вся ветка
Текущий архив: 2012.02.05;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.002 c
