Convertir un Single en 4 char

[[seoane]]

Si te fijas un poco en el hilo anterior, yo creo que la solución es evidente.

En el hilo anterior convertíamos un String en PChar de la siguiente manera:

Código Delphi [-]
function StrToSingle(Str: String): Single;
begin
  if length(Str) = 4 then
    Result:= PSingle(@Str[1])^
  else
    Result:= 0;
end;

Asi que si aplicamos el paso inverso:

Código Delphi [-]
function SingleToStr(S: Single): String;
begin
  // Creamos el espacio suficiente en memoria
  Result:= StringOfChar(#0,4);
  // Y aplicamos el paso inverso
  PSingle(@Result[1])^:= S;
end;