Главная страница
    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.005 c
1-23983
Mr. JS
2002-07-27 13:19
2002.08.08
Имя узла в TreeView?


1-24002
Hooch
2002-07-25 16:36
2002.08.08
ShareMem


1-24050
zetta
2002-07-24 19:03
2002.08.08
файлы по таймеру


7-24241
Megadeth
2002-05-24 19:21
2002.08.08
Как узнать S.M.A.R.T у HDD ??


1-24066
Valeris
2002-07-26 11:03
2002.08.08
Какой фукцией вызвать запуск ...?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский