Delphi 字符串转十六进制

mark一下。

//字符串转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;

//字符串转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;

转载请注明：exchen's blog » Delphi 字符串转十六进制

与本文相关的文章