Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Вниз

Типы   Найти похожие ветки 

 
aev   (2002-07-26 09:49) [0]

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

var
f : file of byte;

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


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

real48


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

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

var
f : file of real;

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

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


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

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

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

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

preal48=^real48;
r:real48;

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


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

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


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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.007 c
1-23978
ZenoN
2002-07-27 10:40
2002.08.08
Какой инсталятор юзать для проги?


4-24280
dDaN
2002-05-09 09:02
2002.08.08
<font size=1000>Как зделать круглую форму</font>


1-24016
anod
2002-07-28 18:27
2002.08.08
Invalid pointer operation


7-24246
Alexey-neo
2002-05-25 23:12
2002.08.08
Как своеобразно вшить звук в программу?


1-24079
U-Rustam
2002-07-26 13:17
2002.08.08
Перевод из Delphi 3 в Delphi 5





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский