如何将一字符串转换为16进制数在memo中显示，很着急 ( 积分: 50 )

L

liujiandong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-25

• #1

如何将一字符串转换为16进制数在memo中显示，例如
var
a:string;
bein
a:='1234567';
如何在memo中显示(十六进制的）：31 32 33 34 35 36 37

 

L

liujiandong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-25

• #2

如何将一字符串转换为16进制数在memo中显示，例如
var
a:string;
bein
a:='1234567';
如何在memo中显示(十六进制的）：31 32 33 34 35 36 37

 

X

xiaolin0522

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-25

• #3

IntToHex

 

D

delphibbs_Lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-25

• #4

var
I: Integer;
begin
for I:= 1 to Length(a) do
Memo1.Lines.Add(IntToHex(Ord(a), 2));
end;

你扫尾改动就可以了

 

H

hellbeast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-25

• #5

BinToHex(PChar(a),PChar(sResult),Length(a))

 

H

hellbeast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-25

• #6

你也可以这样
const
Convert: array[0..15] of Char = '0123456789ABCDEF';
begin
for cntI:=1 to Length(a) do
begin
memo1.lines.add(Convert[Byte(a[cntI]) shr 4]);
memo1.lines.add(Convert[Byte(a[cntI]) and $F]);
end;
end

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-25

• #7

var
a:string;
i: Integer;
begin
a:='1234567';
for i := 1 to Length(a) do
Memo1.Lines.Add(IntToHex(a, 2));
end;