Просто оставлю это здесь...
Код:
//Перевод четырёх Word в LReal
FUNCTION Quadro_Word_To_LReal: LREAL;
VAR_INPUT
Word1: WORD; //Входной Word 1
Word2: WORD; //Входной Word 2
Word3: WORD; //Входной Word 3
Word4: WORD; //Входной Word 4
END_VAR
VAR
//Выход функции
Result: LREAL;
END_VAR
Код:
//Собираем из кусочков...
Memutils.MemCpy(ADR(Result) + 0, ADR(Word4), 2);
Memutils.MemCpy(ADR(Result) + 2, ADR(Word3), 2);
Memutils.MemCpy(ADR(Result) + 4, ADR(Word2), 2);
Memutils.MemCpy(ADR(Result) + 6, ADR(Word1), 2);
//Выход функции
Quadro_Word_To_LReal := Result;