Сервер поддерживается кафедрой информатики и вычислительной техники ГрГУ тел. +375-(0)152-445-101 E-mail : kadan@grsu.grodno.by

Формат структуры TSearchRec, используемой для хранения информации о файле, таков:

TSearchRec = record
═════Fill: array[1..21] of Byte;
═════Attr: Byte;
═════Time: Longint;
═════Size: Longint;
═════Name: string[12];
end;

Приведем типовой вариант организации групповой обработки файлов при помощи функций FindFirst, FindNext и FindClose. В нем в список добавляются имя и длина всех файлов в каталоге с именем C:\DELPHI:

var SearchRec: TSearchRec;
═════I : Integer;
═════List : TStringList;
begin
═════List := TStringList.Create;
═════I := FindFirst('c:\delphi\*.*', faAnyFile, SearchRec);
═════while I = 0 do begin
══════════List.Add(Format (' File %s has length %d bytes ', ═══════════════[SearchRec.Name, SearchRec.Size]));
══════════I := FindNext(SearchRec);
═════end;
═════FindClose(SearchRec);
═════List.Free;
end;

При поиске файла наиболее вероятным является код ошибки -18 (файл не найден).

Процедура FindClose не делает ничего в 16-разрядной версии Delphi, однако будет играть роль в 32-разрядной. Употреблять ее следует из соображений переносимости приложений.

Для комментария : kadan@grsu.grodno.by