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??

[-=[Ay]=-]

Эээй кто-нить знает в чем проблема ???

[volvo]

suriv, опять ты?

А ты не знаешь, что атрибуты могут складываться? Что, файл не может быть одновременно "скрытым" и "системным""? Тогда его атрибут будет $02 + $04 = $06, или "архивный" + "только для чтения" = $20 + $01 = $21 = 33

[suriv]

suriv, опять ты?

да забыл войти

$? Это не шестнадцатеричное число?

Сообщение отредактировано: suriv - 24.09.2005 17:47

[volvo]

suriv
Совершенно случайно оно самое :D

[GoodWind]

А что за знак $? Это слуайно не шестнадцатеричное число?

да

[suriv]

А как перевести в десятичное ? :p2:

[FreeMan]

На калькуляторе виндовозном. Там вид инженерный и флажки dec, hex... нажимаешь на НЕХ, вводишь число, нажимаешь на dec.

[suriv]

Нет это понятно ну а как из одной сс переводить в другу сс(шестнадцатеричную)

[volvo]

suriv
Смотри здесь

[suriv]

suriv, опять ты?

=)

Сообщение отредактировано: suriv - 24.09.2005 17:47

[volvo]

suriv
просто ты не зашел под своим ником ;)
кстати, почему?

[suriv]

забыл

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

[GoodWind]

suriv, могешь в асю обращаться ... если боишся достать... если достанешь, поставлю игнор, делов то ;)

[suriv]

А как очистить текстовый файл.
Допустим в нем текст а как этот текст стереть.
С тектовым файлом это наерно не получится(Доступ в каждой строке возможен лишь последовательно начиная с первой).Тогда наерно с типизированым файлом в котором этот текст.

[volvo]

suriv
Ты хочешь стереть ВЕСЬ текст из файла?

Если так то просто открой файл с текстом процедурой ReWrite(f) и посмотри, что с ним станет...

Сообщение отредактировано: volvo - 15.12.2004 3:48

[suriv]

Я знаю что с ним станет. <_<

Код

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

Ээ что за ерунда?
В текущей папке у меня 15 тектовых файлов а пишет тока что тока 3.

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

[volvo]

Странно, у меня нашел все, которые есть ...

[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 4:31

[FreeMan]

Вот так то!!!!! Кто ж на ЕХЕшках эксперементирует???? Да ещё и в папке с компилятором :D :D ...