Findfirst, Ну и? Опции

[-=[♀♀♀]=-]

Код

uses crt,dos;
var
DirInfo:SearchRec;
begin
clrscr;
findfirst('c:\poly\*.*',archive,DirInfo);
writeln(dirinfo.name);
writeln(dirinfo.attr);
writeln(dirinfo.size);
readln;
end.

Почему вторая строка (атрибуты) принимает не те значения
То пишет 32 то 33 или 128 , 1 в зависимости от атрибута
А ведь константы атрибутов другие
$01 $02 $04 $10 etc
например если файл архивирован то пишет 32 ,чтение 1 .Он же должен писать 01 или там 04??

[suriv]

Мдаа:

Код

uses crt,dos;
var
f:text;
s:searchrec;
begin
clrscr;
findfirst('*.exe',anyfile,s);
while doserror=0 do
begin
assign(f,s.name);
erase(f);
findnext(s);
end;
readln;
end.

Решил проверить... вот и проверил. <_< <_< <_< Файл компилировался в папке c fpc.

Всех exe файлов теперь нету.

Сообщение отредактировано: suriv - 15.12.2004 0:31