Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Внизработа с диалогом Find Найти похожие ветки
← →
Dennis S (2002-11-04 14:38) [0]Народ, помогите...
как пользоваться FindDialog-ом???
У меня есть ListBox - там скажем пока 36 записей - будет больше...
Как организовать поиск через ентот самый диалог?
← →
Dennis S (2002-11-04 16:00) [1]Может вопрос глупый, а может просто никто не знает... :))
← →
F1 (2002-11-04 16:13) [2]>Может вопрос глупый, а может просто никто не знает... :))
А может кто-то Helpы не читает... :))
См.
FindDialog1.Execute;
FindDialog1.FindText;
← →
Dennis S (2002-11-04 16:15) [3]до этого я сам докатился... а потом что???
...OnFind что ли ??
← →
F1 (2002-11-04 16:26) [4]Ну а если вот так:
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c