use strcon at http://SunSITE.ICM.edu.pl/delphi/ftp/d40free/strcon.zip .for example:input: edit1: hex num output: edit2: bin num procedure TForm1.Button1Click(Sender: TObject); var x: word; s: string; begin x := sc.BaseVal(sc.UpCase(edit1.Text), '0123456789ABCDEF'); edit2.Text := sc.BaseStr(x, '01'); end;
label1.caption:=IntToHex(10,2);
output: edit2: bin num
procedure TForm1.Button1Click(Sender: TObject);
var
x: word;
s: string;
begin
x := sc.BaseVal(sc.UpCase(edit1.Text), '0123456789ABCDEF');
edit2.Text := sc.BaseStr(x, '01');
end;