Форум: "Начинающим";
Текущий архив: 2012.02.05;
Скачать: [xml.tar.bz2];

Вниз

Помогите написать программу на 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.003 c