Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
ВнизНе, ну вообще прикл... Найти похожие ветки
← →
3d[Power] (2001-12-28 01:45) [27]Кстати люди я столкнулся с такой же проблемой!
Вот к примеру у меня есть:
MyBrick = record
x,y : word;
texture : byte;
animated : boolean;
...
end;
Я допустим пишу это все в файл , и получается 1 record у меня занимает, скока, 4 байта(или 5). Вот если я запишу допустим 10 раз это все это будет 40 байт. А после этого мне надо воткнуть вот что:
TMySTRData = record
string1 : shortstring;
value : single;
parameter : byte;
end;
1 раз и затем снова продолжать писать TMyBrick много раз.
Решение номер 1:
Объединить record TMySTRData и TMyBrick. Но это тогда огромная потеря места!.
Решение номер 2:
Создать свой обработчик файла который через blockread будет все это обрабатывать. Допустим:
Байты нового якобы record"a:
$00 - тип записи (если 1 то TMyBrick а 2 TMySTRDATA)
И потом в зависимости от типа записи считывать определенное колво байт.
Вопрос вот вчем:
Можно ли так сделать:
К примеру myfile.seek(someaddr)
а потом read(myfile, mybrick);
или read(myfile, mystrdata);
А приходится указывать myfile : file of TMYBRICK.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c