L
lizheng
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
j:integer;
begin
try
j:=strtoint
(edit1.text);
except
showmessage('wrong');
end;
end;
我的处理异常的部分不管用,不知为什么?
var
j:integer;
begin
try
j:=strtoint
(edit1.text);
except
showmessage('wrong');
end;
end;
我的处理异常的部分不管用,不知为什么?