//drony@mynet.com
//icq:266148308
//hex to binary
procedure TForm1.Button1Click(Sender: TObject);
function HextoBin(Hexadecimal:string):string;
const
BCD: array [0..15] of string=
('0000','0001','0010','0011','0100','0101','0110','0111',
'1000','1001','1010','1011','1100','1101','1110','1111');
var
i:integer;
begin
for i:=Length(Hexadecimal) downto 1 do
Result:=BCD[StrToInt('$'+Hexadecimal[i])]+Result;
end;
begin
Label1.Caption:=HextoBin('FA34345C2344BED');
end;
--------------------------------------------------------------------------------
//hex to integer
procedure TForm1.Button2Click(Sender: TObject);
function HexToInt(const Value: String): Integer;
begin
Result := StrToInt('$' + Value);
end;
begin
Label1.Caption:=IntToStr( HexToInt('ff') );
end;
--------------------------------------------------------------------------------
//integer to hexadecimal
button1.Caption := IntToHex(StrToInt64(label1.Caption), 6);
--------------------------------------------------------------------------------