За последние 60 дней 411 выпусков (несколько раз в день)
Сайт листа:
http://www.tiflocomp.ru
Открыт:
22-01-2004
Пре-модерация: Нет
Адрес для писем в лист: industry.comp.tiflocomp-list@subscribe.ru
Здравствуйте, industry.
объясните пожалуйста почему происходит ошибка?
при выполнение кода:
var
bol: bool;
f :thandle;
b :twin32finddata;
i ,a: integer;
begin
bol := true;
findfirstfile('c:\*.*', b);
a := 0;
while a < 8 do
begin
findnextfile(f, b);
a := a+2;
end;
end;
при этом если заместо цикла
while do
поставить цикл
for do
вс работает нормально.
Приветствую всех.
Константин пишет:
Здесь, по всей видимости, должно быть так:
f := findfirstfile('c:\*.*', b);
Ибо сказано в Platform SDK:
BOOL FindNextFile(
HANDLE hFindFile, // ...
LPWIN32_FIND_DATA lpFindFileData // ...
);
Parameters
hFindFile
Identifies a search handle returned by a previous call to the FindFirstFile
function (!).
И желательно проверить этот дескриптор, чтобы цикл напрасно не крутить.
Успехов. Анатолий.