10进制转换成16进制 (2001年5月24日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 27 行

10进制转换成16进制 (2001年5月24日) 

本站更新  分类:算法   作者:tomm  推荐:   阅读次数:111  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

SysUtils

Category

numeric formatting routines

function IntToHex(Value: Integer; Digits: Integer): string;
function IntToHex(Value: Int64; Digits: Integer): string; 
overload;
example fir it
procedure TForm1.Button1Click(Sender: TObject);

begin
Edit2.Text := IntToHex(StrToInt(Edit1.Text), 6);
end;