Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

JvSearchFiles из Jedi [D7, WinXP]


97 ©   (2006-07-10 13:03:00) 

Подскажите кто пользовался компонентом 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


97   (2006-07-12 12:01:00) [1]


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

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


ЮЮ   (2006-07-12 04:06:00) [2]

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

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


97   (2006-07-11 11:17:00) [3]

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

> 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:00) [4]


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

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


ЮЮ   (2006-07-11 09:55:00) [5]

if not jvsearchFiles.Search then Exit;

function Search: Boolean;

Return Value

Returns Falseif 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-10 22:46:00) [6]


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

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


Мефисто   (2006-07-10 18:50:00) [7]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо