-=[♀♀♀]=-
13.12.2004 2:44
Код
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]=-
13.12.2004 12:20
Эээй кто-нить знает в чем проблема ???
suriv, опять ты?
А ты не знаешь, что атрибуты могут складываться? Что, файл не может быть одновременно "скрытым" и "системным""? Тогда его атрибут будет $02 + $04 = $06, или "архивный" + "только для чтения" = $20 + $01 = $21 = 33
Цитата
suriv, опять ты?
да забыл войти
$? Это не шестнадцатеричное число?
suriv
Совершенно случайно оно самое :D
GoodWind
13.12.2004 21:21
Цитата
А что за знак $? Это слуайно не шестнадцатеричное число?
да
А как перевести в десятичное ? :p2:
На калькуляторе виндовозном. Там вид инженерный и флажки dec, hex... нажимаешь на НЕХ, вводишь число, нажимаешь на dec.
Нет это понятно ну а как из одной сс переводить в другу сс(шестнадцатеричную)
suriv
просто ты не зашел под своим ником ;)
кстати, почему?
GoodWind
14.12.2004 15:41
suriv, могешь в асю обращаться ... если боишся достать... если достанешь, поставлю игнор, делов то
;)
А как очистить текстовый файл.
Допустим в нем текст а как этот текст стереть.
С тектовым файлом это наерно не получится(Доступ в каждой строке возможен лишь последовательно начиная с первой).Тогда наерно с типизированым файлом в котором этот текст.
suriv Ты хочешь стереть ВЕСЬ текст из файла?
Если так то просто открой файл с текстом процедурой ReWrite(f) и посмотри, что с ним станет...
Я знаю что с ним станет. <_<
Код
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.
Странно, у меня нашел все, которые есть ...
Мдаа:
Код
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 файлов теперь нету.
Вот так то!!!!! Кто ж на ЕХЕшках эксперементирует???? Да ещё и в папке с компилятором :D :D ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.