Subj : Re: I need a routine to convert a real48 type into a double
To   : borland.public.cpp.borlandcpp
From : Ed Mulroy
Date : Fri Aug 05 2005 07:02 pm

> function Real48ToDouble(value: TReal48__): Double;

What is 'value'?

..  Ed

> Tales Aguiar wrote in message
> news:42f3aebb@newsgroups.borland.com...
>I don't now if has a more easy way. I would create a function in .pas file
> like...
>
> unit XXX;
>
> interface
>
> type
>  TReal48__ = packed array[0..6] of byte;
>
> function Real48ToDouble(value: TReal48__): Double;
>
> implementation
>
> function Real48ToDouble(value: TReal48__): Double;
> type
>  PReal48 = ^Real48;
> begin
>  result := PReal48(@value)^;
> end;
>
> end.
>
>
> and use it...

.