procedure ShowADOErrors(ErrorList: Errors);
var
I: Integer;
E: Error;
S: String;
begin
for I := 0 to ErrorList.Count - 1 do
begin
E := ErrorList[I];
S := Format('ADO Error %d of %d:'#13#13'%s%',
[I + 1, ErrorList.Count, E.Description]);
ShowMessage(S);
end;
end;
调用方式
begin
try
………………
………………
except
ShowADOErrors(FConnection.Errors);
^^^^^^^^^^^^此处是获取在连接数据库时出错的情况,其他情
况可视具体情况使用
end;
end;