ActiveDelphi

[codigofonte]

Preciso saber o valor de um determinado byte em bits
Alguém poderia me ajudar?

Obrigado.
Inté mais..............

[johnny-walker]

amigo explica melhor esta ai... que esta meio dificil de entender...

Converter um numero em bytes ou bytes de uma aplicação...



bye...
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[codigofonte]

O que eu quero saber é o seguinte:

Por exemplo...tenho o caracter \"A\", eu quero saber qual é a representação dele em bits.

Entendeu?

Obrigado.

[johnny-walker]

Como vc sabe vc tem a tabela de 0 a 255 que representam os caracteres da máquina e de A a Z

\"A\" a \"Z\" vai de 65 a 90 e de \"a\" a \"z\" vai de 97 a 122

Para saber a ordem vc pode fazer isto:
ShowMessage(IntToStr(Ord(Char(\'z\')))); resultado 122

para saber o que representa a ordem assim:
ShowMessage(Char(90)); resultado Z


entao fica fácil vc colocá-lo em binario... como representa um número de 0 a 255 represntando 256 caracteres... saiba que isto depende o layout do teclado...

é somente arranjar uma função para converter um número para binário...

PS.: é somente uma ideia, se nao concordar desconsidere...

bye...
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[gustavocco]

Olah, seguindo a logica do johnny... aki vai o algoritmo:

[code]
function CaracterParaBinario(const caracter : PChar) : PChar;
var
cont, car : integer;
bin, strcaracter : string;
Begin
strcaracter := StrPas(caracter);
car := ord(strcaracter[1]);
bin := \'\';
for cont := 1 to 8 do begin
bin := IntToStr(car mod 2) + bin;
car := (car div 2);
end;
result := PChar(bin);
end;
[/code]

Como chamar:

Edit1.Text := CaracterParaBinario(\'G\');

Espero que ajude.

Flw.
_________________
Top System - www.topsystem.com.br