Re: Převod pole znaků na reel

[Zdeněk Aster]

A nebo lazarus má funkci SwapEndian,
https://www.freepascal.org/docs-html/rtl/system/swapendian.html

jen to bude potreba pretypovat na dword....

P : array[1..4] of char;

   DWord(P):=SwapEndian(DWord(P));



Zdeněk Aster
Dne 03.01.2021 v 12:29 Martin Záruba napsal(a):
> Dík. Absolute je to, co jsem si nemohl vzpomenout. Prohodit prvky je 
> pak snadné.
>
> Martin Záruba
>
> Dne 3.1.2021 v 12:18 Fanda Kopriva napsal(a):
>> 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?
>>>
>>
>> _______________________________________________
>> HW-list mailing list  -  sponsored by www.HW.cz
>> Hw-list na list.hw.cz
>> http://list.hw.cz/mailman/listinfo/hw-list
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list na list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list