VPF::Как прочитать запись в файле...

Yura17

Дата 2.4.2005, 10:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Почему запись типа

Код


type
P = record
C: array [1..20] of Char;         
P: array [1..17] of Char;   
T: array [1..2] of Char;    
...
end;

Код


type
P = record
C: array [1..20] of Char;         
P: array [1..17] of Char;   
T: Smallint;    
...
end;

не работает - начинаются проблемы с позоционированием в файле ( Smallint несмотря на SizOf = 2 пытается читать 3 байта ) ????

Это сообщение отредактировал(а) Girder - 2.4.2005, 19:03

Pakshin A. S.

Дата 2.4.2005, 21:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Может знак числа... smile

Coder

Дата 3.4.2005, 01:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 5
Всего: 11

Юра17, покажи как ты пытаешься прочитать из файла

<Spawn>

Дата 3.4.2005, 06:31 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Используй packed record:

Код


type
P = packed record
C: array [1..20] of Char;         
P: array [1..17] of Char;   
T: Smallint;    
...
end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Snowy

Дата 4.4.2005, 08:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Если используешь не packed record, а обычный, то дельфя будет выравнивать твой rekord по блокам байтов, для ускорения работы.
Хотя можно просто отключить выравнивание в опциях проекта, но лучше все же использовать именно packed record - так твой код будет нормально компилиться на разных машинах, независимо от настроек.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »