Re: Převod pole znaků na reel

[Fanda Kopriva]

dobry den
Delam prevod takto:
ale vstup nemam ve stringu ,ale v poli wordu pole[x]

var   velb:array[0..3] of byte;
       velra:single absolute velb;
       pole :array[0..100] of word;

  velb[3]:=hi(pole[22]); velb[2]:=lo(pole[22]); velb[1]:=hi(pole[23]); 
velb[0]:=lo(pole[23]);
  velrkan:=velra;
fanda



Dne 3. 1. 2021 v 11:51 Martin Záruba napsal(a):
> Mám v Pascalu pole 4 znaků,
>
> P : array[1..4] of char;
>
> potřebuji z něj udělat číslo ve formátu real (single). V poli je to 
> uloženo takto exponent, mantisa nejvyšší byte, mantisa nižší byte, 
> mantisa nejnižší byte
>
> Formt single je také 4 byte, ale v opačném pořadí.
>
> Jak nejlépe udělat konverzi?
>