| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Типы [D6]

aev ©   (2002-07-26 09:49:00) 

Уважаемые программисты!
Помогите разобраться с такой проблеммой:
В некотором файле

var
f : file of byte;

записано значение переменной типа Real (как в Паскале - 6 байт).
Подскажите, как, считав эти 6 байт, восстановить значение переменной типа Real. Заранее благодарен.

---

IlyaA   (2002-07-26 10:35:00) [1]

TValue = Record
case integer of
1: a: array [1..6] of byte;
2: b: real;
end;

Я не уверен до конца, но где-то так. Массив a и переменная b начинаются по одному адресу. Пиши что хочешь

---

MBo   (2002-07-26 10:25:00) [2]

ba:array[1..6] of byte;
r:real48 absolute ba;

заполнить массив, считать r

или через указатели

preal48=^real48;
r:real48;

r:=preal48(@ba[1])^;

---

aev   (2002-07-26 10:21:00) [3]

Точнее - как из последовательности 6-ти байт получить значение переменной типа Real, которая хранится в файле.
если бы файл был

var
f : file of real;

то можно было бы написать

var
r : real;
...
...
Read(f,r);


---

Opuhshii   (2002-07-26 10:09:00) [4]

real48

---

Наверх