JvSearchFiles из Jedi

← →
97 (2006-07-10 13:03) [0]

Подскажите кто пользовался компонентом JvFilesearch из JEDI.
Как остановить поиск? JvSearchFile.Abort не работает, поиск провожу по нескольким дискам и расширениям:
Делаю так:
procedure TMainForm.tbFindClick(Sender: TObject); var i,j:byte; begin lvResult.Items.Clear; try jvsearchFiles.Files.Clear; jvsearchFiles.Directories.Clear; for i:=0 to ListView1.Items.Count-1 do if ListView1.Items[i].Checked=true then begin jvsearchFiles.RootDirectory:=ListView1.Items[i].Caption; for j:=0 to CheckListBox1.Items.Count-1 do if CheckListBox1.Checked[j]=true then begin jvsearchFiles.FileParams.FileMasks.Add(CheckListBox1.Items[j]); end; jvsearchFiles.Search; end; finally statusBar1.SimpleText:="Поиск окончен"; end; end

← →
Мефисто (2006-07-10 18:50) [1]

С джеди как помнится еще и примеры есть. Глянь там.

← →
97 (2006-07-10 22:46) [2]

> С джеди как помнится еще и примеры есть. Глянь там.

Да есть. Но там поиск производится на одном диске и по одному критерию.
А вот если сделать для нескольких то СТОП не функционирует

← →
ЮЮ © (2006-07-11 09:55) [3]

if not jvsearchFiles.Search then Exit;

function Search: Boolean; Return Value Returns False if an error occurred or the user did abort the operation; otherwise returns True. Copyright (c) 2002 - 2003 Project JEDI. All rights reserved.

← →
97 (2006-07-11 10:59) [4]

> ЮЮ © (11.07.06 09:55) [3]

Огромное спасибо Вам ЮЮ!!!!
Все топик закрыт

← →
97 (2006-07-11 11:17) [5]

Да и еще вопрос

> function Search: Boolean;
>
> Return Value
>
> Returns False if an error occurred or the user did abort
> the operation; otherwise returns True.
>
> Copyright (c) 2002 - 2003 Project JEDI. All rights reserved.
>

Откуда это???

Откуда это???

Из Нelp-a, вестимо. У JVcl такой имеется

← →
97 (2006-07-12 12:01) [7]

> У JVcl такой имеется

Спасибо. Я скачал архив с torry там справка только для Jcl а для Jvcl на sourceforge нашел.

JvSearchFiles из Jedi Найти похожие ветки