-
Пользователь
Подскажите, пожалуйста. Что-то я туплю...
Есть 8 байт, которые необходимо преобразовать в LREAL.
Вот так все работает замечательно:
p1:=ADR(otvet[18]); p:=ADR(L); p^:=p1^;
p1:=ADR(otvet[17]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[16]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[15]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[14]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[13]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[12]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[11]); p:=p+1; p^:=p1^;
Но мне надо сначала из 8 байт сформировать 2 DWORD'а, которые потом преобразовывать в LREAL.
Делаю так:
p1:=ADR(otvet[14]); p:=ADR(dw1); p^:=p1^;
p1:=ADR(otvet[13]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[12]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[11]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[18]); p:=ADR(dw2); p^:=p1^;
p1:=ADR(otvet[17]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[16]); p:=p+1; p^:=p1^;
p1:=ADR(otvet[15]); p:=p+1; p^:=p1^;
Далее, собираю LREAL.
L3:=TwoDWord_TO_LREAL(IN_Data1:= dw1 , IN_Data2:= dw2);
В результате, необходимое число не получается.
Ваши права
- Вы не можете создавать новые темы
- Вы не можете отвечать в темах
- Вы не можете прикреплять вложения
- Вы не можете редактировать свои сообщения
-
Правила форума