массив слов в массив single

[Pykhov]

Возможно сделать преобразование без цикла ?

Var
 data:array [0..199]of word;
 data_single:array [0..99]of single;
 dt:dword;
 . . .
for I:=0 to 2 do
  begin
    dt:=(data[i*2] shl 16)+data[i*2+1];
    data_single[i]:=(psingle(@dt))^;
  end;

[Somebody]

data_single: array [0..99] of single absolute data

?

[Pykhov]

Сообщение от Somebody

data_single: array [0..99] of single absolute data

?

степени не адекватные)