Talvez esta dica te ajude. Verifique e adapte para as suas necessidades.
Colocar label e botao
function TForm1.BinToInt(Value: String): LongInt;
{Converte um numero binário em Inteiro}
var
i,Size: Integer;
begin
Result := 0;
Size := Length(Value);
for i:=Size downto 0 do
if Copy(Value,i,1)='1' then
Result := Result+(1 shl i);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption := inttostr(bintoint('010101'));
label1.caption := label1.caption + ' - ' + char(bintoint('010101'));
end;
Espero ter ajudado.
----- Original Message -----
From: "emerson cambuy" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, December 03, 2004 4:25 PM
Subject: [delphi-br] Arquivo binário
Olá.
Tenho um arquivo binário e preciso ler o seu conteúdo.
Alguém tem idéia de como posso fazer esta leitura utilizando o Delphi ?
Atenciosamente,
Emerson Cambui.
---------------------------------
Yahoo! Mail - Agora com 250MB de espaço gratuito. Abra uma conta agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
