谁能讲讲这段代码是什么意思——Delphi

function ByteToSingle(B1,B2,B3,B4: Byte): Single;
//************************************************
//功能:字节转换成Single型数据
var
//outputsingle:single; // 输出数值
outputPsingle:PSingle; // 输出数值用到的指针
outputPchar:Pchar; // 输出数值用到的转换字符串
outputArr:array [1..4]of byte;// 输出数值用到的字符数组
begin
outputArr[1]:=0;
outputArr[2]:=0;
outputArr[3]:=0;
outputArr[4]:=0;

outputPchar:=@(outputArr[1]);
outputPchar[1]:= char(strtoint('$'+IntToHex(B1,2)));
outputPchar[2]:= char(strtoint('$'+IntToHex(B2,2)));
outputPchar[3]:= char(strtoint('$'+IntToHex(B3,2)));
outputPchar[4]:= char(strtoint('$'+IntToHex(B4,2)));

outputPsingle := PSingle(outputPchar);
Result := outputPsingle^;
end;

函上面已经有说明了，这个函数的作用是将四个byte(字节)转成一个Single类型。但谁写的这个函数写得很蛋疼，下面这段代码象脱裤子放屁一样：
outputPchar:=@(outputArr[1]);
outputPchar[1]:= char(strtoint('$'+IntToHex(B1,2)));
outputPchar[2]:= char(strtoint('$'+IntToHex(B2,2)));
outputPchar[3]:= char(strtoint('$'+IntToHex(B3,2)));
outputPchar[4]:= char(strtoint('$'+IntToHex(B4,2)));

改成这样好了：

function ByteToSingle2(B1,B2,B3,B4: Byte): Single;
//************************************************
//功能:字节转换成Single型数据
var
outputArr:array [1..4]of byte;// 输出数值用到的字符数组
begin
outputArr[1]:=B1;
outputArr[2]:=B2;
outputArr[3]:=B3;
outputArr[4]:=B4;

Result := PSingle(@outputArr)^;
end;