| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
работа с диалогом Find
Dennis S © (2002-11-04 14:38:00)Народ, помогите...
как пользоваться FindDialog-ом???
У меня есть ListBox - там скажем пока 36 записей - будет больше...
Как организовать поиск через ентот самый диалог?
F1 (2002-11-04 16:26:00) [1]Ну а если вот так:
procedure TForm1.FindDialog1Find(Sender: TObject);
Var
i:Integer;
begin
For i:=j to ListBox1.Items.Count-1 do
begin
if StrPos(PChar(ListBox1.Items.Strings[i]),PChar(FindDialog1.FindText))<>Nil then
begin
ListBox1.ItemIndex:=i;
j:=i+1;
Exit;
end;
end;
//Поиск закончен, можно чтонибудь сказать... и начать заново.
j:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
j:=0;
FindDialog1.Execute;
end;
Dennis S (2002-11-04 16:15:00) [2]до этого я сам докатился... а потом что???
...OnFind что ли ??
F1 (2002-11-04 16:13:00) [3]>Может вопрос глупый, а может просто никто не знает... :))
А может кто-то Helpы не читает... :))
См.
FindDialog1.Execute;
FindDialog1.FindText;
Dennis S (2002-11-04 16:00:00) [4]Может вопрос глупый, а может просто никто не знает... :))
| |
