 Findfirst, Ну и? |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
  |
| -=[♀♀♀]=- |
  12.12.2004 22:44
Сообщение
#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?? |
 
|
|
| -=[Ay]=- |
13.12.2004 8:20
Сообщение
#2
|
|
Гость |
Эээй кто-нить знает в чем проблема ???
|
|
|
|
| volvo |
13.12.2004 11:29
Сообщение
#3
|
|
Гость |
suriv, опять ты?
А ты не знаешь, что атрибуты могут складываться? Что, файл не может быть одновременно "скрытым" и "системным""? Тогда его атрибут будет $02 + $04 = $06, или "архивный" + "только для чтения" = $20 + $01 = $21 = 33 |
|
|
|
| suriv |
13.12.2004 17:00
Сообщение
#4
|
 Бывалый  Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация:  1  |
Цитата suriv, опять ты? да забыл войти $? Это не шестнадцатеричное число? Сообщение отредактировано: suriv - 24.09.2005 13:47 -------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
   |
|
| volvo |
13.12.2004 17:14
Сообщение
#5
|
|
Гость |
suriv
Совершенно случайно оно самое :D |
|
|
|
| GoodWind |
13.12.2004 17:21
Сообщение
#6
|
 Автооответчик Группа: Модераторы Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
Цитата А что за знак $? Это слуайно не шестнадцатеричное число? да -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
|
|
|
| suriv |
13.12.2004 17:35
Сообщение
#7
|
|
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1 |
А как перевести в десятичное ? :p2:
-------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
|
|
|
| FreeMan |
13.12.2004 17:42
Сообщение
#8
|
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
На калькуляторе виндовозном. Там вид инженерный и флажки dec, hex... нажимаешь на НЕХ, вводишь число, нажимаешь на dec.
-------------------- бб
|
|
|
|
| suriv |
13.12.2004 17:54
Сообщение
#9
|
|
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1 |
Нет это понятно ну а как из одной сс переводить в другу сс(шестнадцатеричную)
-------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
|
|
|
| volvo |
13.12.2004 17:56
Сообщение
#10
|
|
Гость |
suriv
Смотри здесь |
|
|
|
| suriv |
13.12.2004 22:21
Сообщение
#11
|
|
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1 |
Цитата suriv, опять ты? =) Сообщение отредактировано: suriv - 24.09.2005 13:47 -------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
|
|
|
| volvo |
13.12.2004 22:26
Сообщение
#12
|
|
Гость |
suriv
просто ты не зашел под своим ником ;) кстати, почему? |
|
|
|
| suriv |
13.12.2004 22:38
Сообщение
#13
|
|
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1 |
забыл
Сообщение отредактировано: suriv - 15.11.2005 20:45 -------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
|
|
|
| GoodWind |
14.12.2004 11:41
Сообщение
#14
|
|
Автооответчик Группа: Модераторы Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
suriv, могешь в асю обращаться ... если боишся достать... если достанешь, поставлю игнор, делов то
 ;)-------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
|
|
|
| suriv |
14.12.2004 23:39
Сообщение
#15
|
|
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1 |
А как очистить текстовый файл.
Допустим в нем текст а как этот текст стереть. С тектовым файлом это наерно не получится(Доступ в каждой строке возможен лишь последовательно начиная с первой).Тогда наерно с типизированым файлом в котором этот текст. -------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
|
|
|
| volvo |
14.12.2004 23:45
Сообщение
#16
|
|
Гость |
suriv
Ты хочешь стереть ВЕСЬ текст из файла? Если так то просто открой файл с текстом процедурой ReWrite(f) и посмотри, что с ним станет... Сообщение отредактировано: volvo - 14.12.2004 23:48 |
|
|
|
| suriv |
14.12.2004 23:59
Сообщение
#17
|
|
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1 |
Я знаю что с ним станет. <_<
Код 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 0:02 -------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
|
|
|
| volvo |
15.12.2004 0:06
Сообщение
#18
|
|
Гость |
Странно, у меня нашел все, которые есть ...
|
|
|
|
| suriv |
15.12.2004 0:08
Сообщение
#19
|
|
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1 |
Мдаа:
Код 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 -------------------- Хочу в репу !
Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ) |
|
|
|
| FreeMan |
15.12.2004 17:40
Сообщение
#20
|
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
Вот так то!!!!! Кто ж на ЕХЕшках эксперементирует???? Да ещё и в папке с компилятором :D :D ...
-------------------- бб
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 12:35 |