Главная страница
    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.55 MB
Время: 0.027 c
1-24015
LuckyMan
2002-07-28 21:12
2002.08.08
Написание компанента


14-24207
^Sanya
2002-07-13 12:59
2002.08.08
EXE-шник в Delphi


1-24023
KPY
2002-07-29 05:38
2002.08.08
Как остановить программу и посмотреть значение переменных


3-23855
S_Andy
2002-07-16 16:52
2002.08.08
Как связать 2 BDE Query связать (master-details)


1-23993
Arco
2002-07-27 21:26
2002.08.08
Ответьте пожалуйста, Синтаксис - OPascal





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