- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
//字符串转16进制
function StrToHex(src:string):string;
var
i: integer;
des: string;
begin
des := '';
for i := 1 to Length(src) do
begin
des := des + IntToHex(Ord(src[i]),2) + ' ';
end;
Result := des;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
des:string;
begin
des := StrToHex(edit1.Text);
edit2.Text := des;
end; |
|