| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите написать программу на Delphi [D7]
Abdul © (2011-10-26 19:31:00)Доброго времени суток
Мне нужно написать программу на Delphi,которая
будет действовать так:
В списке ListBox много фамилий.
Пользователь в поле Edit введён искомую фамилию.
А при нажатии кнопки,программа проверит если в списке эта фамилия,и если есть то укажет на неё.
Вот как то так
ПОМОГИТЕ ПОЖАЛУЙСТА
Спасибо за внимание
KilkennyCat (2011-10-26 21:14:00) [1]
> Faceless © (26.10.11 19:49) [2]
можно сократить, если допустимо присваивание -1 (непомню про делфи)
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.ItemIndex := ListBox1.Items.IndexOf(Edit1.Text);
end;
Faceless (2011-10-26 19:49:00) [2]procedure TForm1.Button1Click(Sender: TObject);
var
N: Integer;
begin
N := ListBox1.Items.IndexOf(Edit1.Text);
if N <> -1 then
ListBox1.ItemIndex := N;
end;
MBo (2011-10-26 19:45:00) [3]у ListBox.Items есть метод для поиска строки
| |
