Obrigado a todos que me ajudaram....
Valeu mesmo....
--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
<djpardalro...@...> escreveu
>
>
>
> Em Object Pascal, um dado do tipo double ocupa 8 bytes. Portanto, se vc quer
> um valor do tipo double representado por bytes, vc vai precisar de um array
> de 8 bytes, e não apenas de um único byte.
>
>
>
> Veja exemplo abaixo (crie uma nova aplicação Console e depois copie, cole e
> execute o código a seguir):
>
>
>
> program DoubleToBytes;
>
> {$APPTYPE CONSOLE}
>
> procedure DoubleToByte(value: Double; var Result);
> var
> BufValue: double;
> Buffer: array[1..8] of byte absolute BufValue;
> begin
> Move(Buffer, Result, 8);
> end;
>
> var
> i: integer;
> Valor: Double;
> Resultado: array[1..8] of Byte;
>
> begin
> FillChar(Resultado, SizeOf(Resultado), 0);
> Valor := 1234.56;
> WriteLn(Valor:8:2);
> WriteLn;
> DoubleToByte(Valor, Resultado);
> for i := 1 to 8 do
> WriteLn(Resultado[i]);
> WriteLn;
> WriteLn(Eoln);
> end.
>
>
>
> Para saber mais sobre a palavra reservada absolute e a rotina FillChar(),
> consulte o help do Delphi.
>
>
>
> Boa sorte.
>
> Sds.
>
>
>
>
> To: delphi-br@yahoogrupos.com.br
> From: rodrigooj...@...
> Date: Sat, 18 Jul 2009 23:13:54 +0000
> Subject: [delphi-br] Converter double para byte
>
>
>
>
>
> Alguem sabe como eu posso fazer para converter um double para byte????
>
> .
>
>
>
>
>
>
>
> _________________________________________________________________
> Novo Internet Explorer 8. Baixe agora, é grátis!
> http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmail&utm_medium=Tagline&utm_campaign=IE8
>
> [As partes desta mensagem que não continham texto foram removidas]
>
