[an error occurred while processing this directive]
|
Очень просто. Записать в массив из 4 байт и сделать преобразование типов.
{---------------------------------}
// Преобразовать часть буфера приемника в число типа single
function TRS_Block.ArrToSingle ( Num : integer ) : single;
var
Ar : TArr4;
i : integer;
begin
For i := 0 to 3 do Ar [ i ] := RS232.RecBuf [ Num + i ];
Result := single ( Ar );
end;
Работает. Отвечаю.
E-mail: info@telesys.ru