十六进制字符串显示问题 (20分)

H

hnliujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #1

要求在一memo中将十进制数转化为十六进制显示如十进制10显示为A,255显示为FF

 

薄

薄荷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #2

IntToHex()

在onKeydown里判断 if key in ['0'..'9'] then

 

Y

YoungSun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #3

memo1.Lines.Add(IntToHex(StrToInt('12345')));

 

H

hnliujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #4

to youngsun:
没这么简单吧好像两个类型就不一样.inttohex这个函数我当然晓得.]

编绎结果是：There is no overloaded version of 'IntToHex' that can be
called with these arguments

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #5

IntToHex(StrToInt('12345'),4);

 

X

xiaolin0522

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #6

两个参数
inttohex(value,digits);

 

W

winsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #7

嘿嘿……楼上的语句编译有错！
memo1.Lines.Add(IntToHex(StrToInt(Edit1.Text),0));

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #8

是不是每个字节转换。
inttohex(ord(s),2)

 

Y

YoungSun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #9

嘿嘿，确实是我的错，少写了一个参数，现丑现丑。

 

Y

YoungSun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #10

[:I]

 

H

hnliujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #11

散分了原来inttohex返回的是Tsting.下次要多看看源代码了

 

3

336764

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #12

var
number:integer;
hexnumber: string;
begin
number := 100;

hexnumber := inttohex(number,2);

//hexnumber 显示为 64 (100的16进制);
end;

 

H

hnliujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #13

分

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #14

function BufferToHex(Buffer: Pointer; Count: Integer): string;
var
tmpPChar : PChar;
HexStr : string;
i : Integer;
begin
Result := '';
tmpPChar := Buffer;
for i := 0 to Count - 1 do
begin
HexStr := IntToHex(Ord(tmpPChar^), 2);
Result := Result + HexStr;
inc(tmpPChar);
end;
end;
这样使用
var
str:string;
...
str:=memo1.text;
memo1.text:=BufferToHex(str[1],length(str));

 

H

hnliujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-13

• #15

接受答案了.