Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

routine da decimale a bit mi da solo 7 bit

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

routine da decimale a bit mi da solo 7 bit

Messaggioda caviccun » mar nov 10, 2015 1:59 pm

Ho copiato una routine che converte da decimale a bit. La routine prevedeva un solo decimale del valore ascii di un carattere, io l'ho modificata per le mie esigenze inserendo una stringa di caratteri estraendo un carattere per volta della stessa stringa. La stringa di caratteri corrispode all'oggetto inse.Text come faccio vedere dalla routine che posto. Da inse.Text estraggo la lunghezza e metto in un char il singolo carattere della stringa inse.Text e converto in integer il char. Tutto funziona solo che alla fine, anche se inserisco un solo carattere mi risultano solo 7 bit. Sbaglio io ho la routine ha un errore?

ps. in pabit.text metto il risultato

var
binario, s: string;
valor,y,x,i:integer;
ch:char;
begin
s:='';
for i:= 1 to length( inse.Text) do begin
ch:=inse.Text[i];
binario:='';
valor:= ord(ch);
while valor >= 1 do
begin
binario:=IntToStr(valor mod 2)+binario;
valor:=(valor div 2);
end;
s:=s +binario;
end;
pabit.Text:=inttostr(length(s)) +' ' +s;
Avatar utente
caviccun
Neo Iscritto
Neo Iscritto
 
Messaggi: 4
Iscritto il: lun ago 06, 2012 7:18 pm

Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising