关于类型转换的问题：如何得到转换错误的信息？和如何处理？ Getlasterror怎么没用？(50分)

J

jklmsoho

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #1

var i:integer
error:dword
str:string;
begin
i:=strtoint(edit1.text)
//怎样才能在系统出现提示错误消息前处理？
error:=getlasterror;
str:=inttostr(error);
showmessage(str);
end;

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #2

加上try
except
error:=getlasterror;
str:=inttostr(error);
end;

 

D

danliyou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #3

showmessage(inttostr(getlasterror()));

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #4

try
i:=strtoint(edit1.text)
except
showmessage(inttostr(getlasterror))
end

 

D

danliyou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #5

对了,你调用winapi函数后,要马上调用getlasterror()就可以显示出错误信息了。

 

S

sygzch

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #6

这样：
var i:integer

begin
try
i:=strtoint(edit1.text)

except on E: Exception do
showmessage(E.message);
end;
end

 

J

jklmsoho

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #7

你看你看，我连try都忘记了！
看来基础还是最重要的，整天捣鼓什么控件是很难变成大富翁的！！！！！！

我用LeeChange和dcsdcs的方法，其它的也可以！在此万分感谢各位！
（不就是50分嘛！哪里有10000分！！！）

可是，我只剩下10分了！！！！
（看来又要多注册一个了！斑竹们，原谅我吧！！
要不偷偷的给我十千百万的，我每次用50也够用一段时间了！！！）[^]

各位同志：对不起，对不起，我有发疯了！！！
[]