Convertir un Single en 4 char

[cmurua71]

Hola ! Tengo un problema que no sé como resolver, he intentado de cientos de formas sin exito.

Debo enviar por el puerto serie un Single, pero para enviarlo debo convertirlo en 4 caracteres (chars)

Seria lo contrario a lo que preguntaba en otro post:


http://www.clubdelphi.com/foros/showthread.php?t=30929

Me urge solucionar este tema, CUALQUIER ayuda urgente sera bienvenida

Desde ya muchisimas GRACIASS

Carlos

[Mick]

Hay varias formas de hacerlo, por ejemplo usando nuestros amigos los punteros:

var 
  ptr      :PChar;
  number:single;
  c1,c2,c3,c4:char;
begin

  number:= 13.34;
  ptr:= @number;
  c1:= ptr[0];
  c2:= ptr[1];
  c3:= ptr[2];
  c4:= ptr[3];
 
  // O Directamente sin variables intermedias 
  c1:= PChar(@number)[0];
  c2:= PChar(@number)[1];
  c3:= PChar(@number)[2];
  c4:= PChar(@number)[3]

end;

Saludos

[cmurua71]

Empezado por Mick

Hay varias formas de hacerlo, por ejemplo usando nuestros amigos los punteros:

var 
  ptr      :PChar;
  number:single;
  c1,c2,c3,c4:char;
begin

  number:= 13.34;
  ptr:= @number;
  c1:= ptr[0];
  c2:= ptr[1];
  c3:= ptr[2];
  c4:= ptr[3];
 
  // O Directamente sin variables intermedias 
  c1:= PChar(@number)[0];
  c2:= PChar(@number)[1];
  c3:= PChar(@number)[2];
  c4:= PChar(@number)[3]

end;

Saludos

No me funciona así... me da el error ¨Array type required¨ en las 4 lineas c1:=ptr[0] y subsiguientes

y no se como solucionarlo

[cmurua71]

Hola... alguein que me tire una idea ??

[[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;