Главная страница
    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
3-23925
Sam
2002-07-17 18:55
2002.08.08
ADOQuery.Locate дает ошибку Record not found?


3-23903
Crypto
2002-07-16 23:10
2002.08.08
Почему не создается lookup-поле в Query?


4-24276
Jumper
2002-06-03 12:27
2002.08.08
клавиатура и мышь в win2000


3-23857
kserg@ukr.net
2002-07-19 13:46
2002.08.08
Хочу узнать мнение в подходах решения след.задачи


3-23856
ПИТОН
2002-07-17 08:54
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский