domingo, 1 de dezembro de 2013

Procedure para converter o dados ASCII para BCD



Procedure ASCIITOBCD(ASCII: String ;Var BCD: Array Of byte) ;
Var
   i, l: integer ;
Begin
   l := Length(ASCII) ;
   For i := 1 To (l Div 2) Do
      BCD[i - 1] := (((Ord(ASCII[(2 * i) - 1]) And $0F) Shl 4) Or
         (Ord(ASCII[(2 * i)]) And $0F)) ;
   If (l Mod 2) > 0 Then
      BCD[l Div 2] := ((Ord(ASCII[l]) And $0F) Shl 4) ;
End ;

Nenhum comentário:

Postar um comentário