Delphi7. Перевод из двоичной в шестнадцатиричную систему счисления.

[Heles]

Нужен алгоритм написания программы:
Перевод из двоичной в шестнадцатиричную систему счисления.
ну или какие-нибудь идеи.

[Simply-Art]

берешь число, разбиваешь на четверки 1110/1111/0010 и так далее и переводишь четверки в шестнадцатеричную EF2

[IT-man]

1)procedure BinToHex(BinValue, HexValue: PChar; BinBufSize: Integer);
2)

берешь число, разбиваешь на четверки 1110/1111/0010 и так далее и переводишь четверки в шестнадцатеричную EF2

Const
  Bin:Array [0..15] Of String =
    ('0000','0001','0010','0011','0100','0101','0110','0111',
     '1000','1001','1010','1011','1100','1101','1110','1111');
  Hex:Array [0..15] Of Char =
    ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
 
Function BinToHex(Value:String):String;
Var
  Index:Integer;
Begin
  Result:='';
  Index:=Length(Value) Mod 4;
  Value:=IfThen(Index<>0,DupeString('0',4-Index))+Value;
  For Index:=1 To Length(Value) Div 4 Do
    Result:=Result+Hex[AnsiIndexText(Copy(Value,(Index-1)*4+1,4),Bin)];
End;

3)

function TMainForm.BinToHex(Bin: String): String;
var
   k: Byte;
   s: String;
   Hex: String;
Begin
   Hex:='';
   While Length(Bin) mod 4<>0 do Bin:='0'+Bin;
   For k:=0 to Length(Bin) div 4 -1 do
   Begin
      s:=Copy(Bin,k*4+1,4);
      if      s='0000' then s:='0'
      else if s='0001' then s:='1'
      else if s='0010' then s:='2'
      else if s='0011' then s:='3'
      else if s='0100' then s:='4'
      else if s='0101' then s:='5'
      else if s='0110' then s:='6'
      else if s='0111' then s:='7'
      else if s='1000' then s:='8'
      else if s='1001' then s:='9'
      else if s='1010' then s:='A'
      else if s='1011' then s:='B'
      else if s='1100' then s:='C'
      else if s='1101' then s:='D'
      else if s='1110' then s:='E'
      else if s='1111' then s:='F';
      Hex:=Hex+s;
   End;
   BinToHex:=Hex;
End;