Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.08.2011, 13:17   #11
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Код:
  root := 'C:\';
Вы код только копи-пастите... читать не пробывали?
p51x вне форума Ответить с цитированием
Старый 13.08.2011, 13:54   #12
hacknet
Форумчанин
 
Регистрация: 11.11.2008
Сообщений: 177
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Код:
  root := 'C:\';
Вы код только копи-пастите... читать не пробывали?
это я заметил!
а что именно сделать я не знаю( чтоб поиск пошел дальше
hacknet вне форума Ответить с цитированием
Старый 13.08.2011, 14:40   #13
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

может возьмете книгу "Делфи для чайников" или "Паскаль для чайников", чтоб хотя бы элементарные вещи выучить?
p51x вне форума Ответить с цитированием
Старый 14.08.2011, 19:27   #14
hacknet
Форумчанин
 
Регистрация: 11.11.2008
Сообщений: 177
По умолчанию

спасибо за совет))

Код:
root := ch;
так? не работает(((

подскажите!

простите за флуд, ну хоть кто нибудь помогите!

ау, плзззз помогите

Последний раз редактировалось Stilet; 14.08.2011 в 19:35.
hacknet вне форума Ответить с цитированием
Старый 16.08.2011, 16:08   #15
hacknet
Форумчанин
 
Регистрация: 11.11.2008
Сообщений: 177
По умолчанию

что прям ни кто не знает?)))
hacknet вне форума Ответить с цитированием
Старый 16.08.2011, 17:54   #16
hacknet
Форумчанин
 
Регистрация: 11.11.2008
Сообщений: 177
По умолчанию

ребят вот код, всё нормально ищет файл по всему ПК... подскажите как узнать, что поиск закончился? спасибо!

Код:
procedure Scan(s: string);
var
  sr: TSearchRec;
  r: integer;
  f: integer;
  OldDir: string;
begin
  {$I-}
  ChDir (s);
  {$I+}
  if IoResult = 0 then begin
    try
      r := FindFirst ('*.*', faAnyFile, sr);
      while r = 0 do begin
        if (sr.Name <> '.') and (sr.Name <> '..') then begin
          Form1.Label1.Caption := ExpandFileName (sr.Name);
          Form1.Label1.Update;
          if (faDirectory and sr.Attr) = faDirectory then begin
            OldDir := GetCurrentDir;
            Scan (ExpandFileName (sr.Name));
            ChDir (OldDir);
          end else begin
            if MatchesMask (sr.Name, '1111.txt') then
              form1.listbox1.Items.Add (ExpandFileName (sr.Name));
          end;
        end;
        r := FindNext (sr);
      end;
    finally
      FindClose (sr);

    end;
  end;
end;

procedure Search;
var
  DriveNum: Integer;
  DriveChar: Char;
  DriveBits: set of 0..25;

begin
  
  Integer(DriveBits) := GetLogicalDrives;
  for DriveNum := 0 to 25 do begin
  if not (DriveNum in DriveBits) then
    Continue;
    DriveChar := Char(DriveNum + Ord('a'));
    Scan (DriveChar + ':\');
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Search;
end;
hacknet вне форума Ответить с цитированием
Старый 16.08.2011, 21:20   #17
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
подскажите как узнать, что поиск закончился?
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Search;ShowMessage('Поиск закончился');
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
лог клавиатуры skosnet Фриланс 1 13.12.2010 15:00
лог транзакций ФБ alex_-87 БД в Delphi 7 13.07.2010 14:09
Ищу лог в Мастдае Elm0 Свободное общение 4 09.02.2010 15:27
Создание лог-файла Xeon332 Общие вопросы Delphi 6 24.05.2009 17:27
Создание лог-файла ScreN Общие вопросы Delphi 8 11.01.2009 11:28