![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
-=[♀♀♀]=- |
![]() ![]()
Сообщение
#1
|
Гость ![]() |
Код 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?? |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
suriv
Ты хочешь стереть ВЕСЬ текст из файла? Если так то просто открой файл с текстом процедурой ReWrite(f) и посмотри, что с ним станет... ![]() Сообщение отредактировано: volvo - 14.12.2004 23:48 |
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 12:51 |