delphi 帮助中的例子怎么不能运行(10分)

S

stoneking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #1

procedure TForm1.Button1Click(Sender: TObject);

var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(Edit1.Text,2) + ' ';
except
Beep;
end;
end;
end;
我想写一个字符到十六进制的小程序，用IntToHex()时老报错，于是找到帮助的一个例
子，但也有问题，不知是何原因。请帮忙！！

 

C

china_peng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #2

看看函数原型
function IntToHex(Value: Integer
Digits: Integer): string
overload;
function IntToHex(Value: Int64
Digits: Integer): string
overload;
你的Edit1.Text 是什么类型？

 

S

stoneking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-14

• #3

是啊， 老兄，但那个是Borland 的帮助中的例子啊。我也想到你说的问题，我就改为
IntToHex(strtoint(Edit1.Text),2)
同样报错，能不能帮改一改或实现一下这个功能？

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-14

• #4

错误提示是？

 

C

china_peng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-14

• #5

如果你的edit1.text不是数字当然出错了
这样还错我要倒了！
Label1.Caption := Label1.Caption + IntToHex(i,2) + ' ';

 

S

stoneking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #6

china_peng, 我想做的就是把字符串变成十六进制啊!请问怎么做好才?
其次,我重申:那个是delphi帮助中的范例,我想知道是不是它的问题?

 

S

stoneking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #7

接受答案了.