delphi中怎么把字符串转化为16进制数据
delphi中怎么把字符串转化为16进制数据
日期:2009-07-22 15:24:13 人气:2
var
src,des: string;
i: integer;
begin
src := edt1.Text;// 要转化的字符串
des := '';
for i := 1 to Length(src) do
begin
des := des + IntToHex(Ord(src[i]),2) + ' ' ;
end;
edt2.Text := des; //转化后的字符串
e