怎样让delphi 异常时不退出循环,如for循环,用了try except end;try finally end;好像都不行。

供稿:hz-xin.com     日期:2025-01-18
delphi try except end 用法

procedure TClientFrmMain.BtnStartClick(Sender: TObject);
begin
if not ClientSocket.Socket.Connected then
try
ClientSocket.Active:=False;
ClientSocket.Host:='PC-201004041415';
ClientSocket.Port:=StrToInt(EdPort.Text);
ClientSocket.Open;
ShowStr('正在建立与'+ClientSocket.Socket.RemoteAddress+'的连接...');
except on e:Exception do
begin
ShowStr('connection error '+E.Message);
end;
end;
end;

try 为尝试的意思.
一般有
try except end;
try finally end;
两种方法使用

为异常处理语句

使用 try 。。。end 把容易出错的语句包含进去,这样如果出错,还是在循环内,多用几个try 进行嵌套保护。

大家好,我对delphi 的exit,abort,break,continue,很糊涂,可以给我详细...
exit: 退出函数体 abort: 遇到异常,安静处理,就是不显示不提示 break: 退出当前循环体,包括for ,while, repeat等循环体 continue: 结束循环内的本次处理,继续从循环体的开始位置继续执行

Delphi中异常处理的语句有那些?
raise 主动抛出异常,供外层异常处理机制处理;如本程序没有自己处理的机制,则交由操作系统处理,或者说最外层的处理机制是操作系统,处理方式一般就是弹出对话框。三、嵌套方式举例 try ...try ...except on Ex1: DoEx1;on Ex2: DoEx2;...on Exn: raise; \/\/ 自己不处理,由外层处置 end fina...

DELPHI基础教程:异常处理与程序调试(一)[3]
异常类 引发原因 ─────────────────────────────────EStreamError 利用LoadFromStream方法读一个流发生错误 EFCreateError 创建文件时发生错误 EFOpenError 打开文件时发生错误 EFilerError 试图再次登录一个存在的对象 EReadError ReadBuffer方法不能读取特定数目的字节...

delphi中用try异常处理不提示理啊。用的是delphi7
1楼的错了,输入错误调试的时候一样会报错的!只是不会执行 except 后面的异常处理,报错的错误是由delphi抛出的异常!你如果输入正确的就不会错啦,你输入一个错误的结果肯定是会报错的,例如你在edit中输入 fff 这个肯定是会报错的,如果输入555这样的纯数字转换就不会提示错误 ...

DELPHI基础教程:异常处理与程序调试(三)[1]
Pass Count编辑框用于设置通过次数条件 即只有当程序运行在该断点处通过设定次数时程序运行才在该断点处中止 这往往用于对循环体内语句的调试 有一点应引起注意的是 当Condition和Pass Count同时设置时 Pass Count是指满足条件的通过次数 lishixinzhi\/Article\/program\/Delphi\/201311\/25184 ...

Delphi异常处理的基本原则和方法
except…end不同 该结构的finally部分总被执行 ( )不存在try…except…finally…end结构来既处理异常 又保护资源分配的结构 但是 try…except…end结构允许嵌套到try…finally…end结构中 从而实现既处理异常 又保护资源的分配 三 异常的精确处理( )定义一个异常 在Delphi中 每个异常都是Exception[ ]...

为什么delphi中执行存储过程遇到错误就不能返回数据呢?而在查询分析器...
你是不是设置了主键啊 主键重复了吧,你可以SELECT 看下你插入的数据是不是有重复,而且插入的值为主键

delphi能不能通过try来捕获数组越界的异常?
回答:能的,try \/\/操作数字的代码except \/\/若异常会执行这里,你可以用显示异常代码on e:exception do application.MessageBox(pchar(e.Message), '异常代码', 0);end;

delphi中如何用try...except处理异常
不会.try..Except能够拦截数据库错误信息.不知道2楼为什么这么说.你的语句没有执行是因为你的代码位置不对!try begin with adoquery1 do begin close;sql.Clear;sql.Add('insert into 设备入库表(code,name,,provider,price) values(code,name,provider,,price)');adoquery1.Parameters.ParamValues[...

delphi获取程序异常信息
可以啊,delphi里的异常处理功能很不错,以下是一段示例:procedure TForm1.Button1Click(Sender: TObject);var ii:integer;begin UsedTime:=0;Timer1.Enabled :=True;Try \/\/以下为你自己的处理过程。中间加入对UsedTime的判断。如果大于你预定的时间,则抛出异常 for ii:=1 to 100000000 do begin ...