相关推荐

关于打开数据库时提示"对象打开时，不允许操作"，问题分析及解决办法

问题的原因可能：   1、在其他地方已经打开这里没有用close先进行关闭在open  2、如果你的程序是多线程的活，虽然也写了close但是还会报错。       原因是当你这个线程到sql语句时程序跳到下一个线程执行了open，又回来执行前一个线程的open，就会报同样的错误  解决办法：   1、单线程就将close在sql语句之前，先关闭再打开   2、多线程时尽量不要使用同一

Delphi中基本控件之SaveDialog控件的使用总结

首先向Form窗体拖一个SaveDialog控件，Name属性改为：dlgSave，然后添加一个按钮，Caption属性改为：浏览，Name属性改为：btnBrowse。 然后双击浏览按钮添加如下代码： procedure Tfoffertool.btnbrowseClick(Sender: TObject); var filePath :string; begin dlgSave.

Delphi 基本控件之 SaveDialog控件

procedure TfMain.muOtherSaveClick(Sender: TObject); begin save1.Filter:= 'BMP文件(*.bmp)|*.bmp'; //设置保存文件的扩展名 save1.DefaultExt := '.bmp'; //为保存文件名自动添加扩展名 save1.Title:='保存图片'; save...

delphi高手突破之异常及错误处理

什么是异常？为什么要用它？ 所谓“异常”是指一个异常类的对象。Delphi的VCL中，所有异常类都派生于Exception类。该类声明了异常的一般行为、性质。最重要的是，它有一个Message属性可以报告异常发生的原因。 但需要强调的是，异常用来标志错误发生，却并不因为错误发生而产生异常。产生异常仅仅是因为遇到了raise，在任何时候，即使没有错误发生，raise都将会导致异常的发生。异常

Delphi 运行时错误信息表

错误信息形式为: Run-time error nnn at xxxx; 其中nnn是运行时的错误编号; xxxx是运行时的错误地址. 编号说明 I/O错误: (编号100-149) 100磁盘读错误,若要对超过格式文件尾进行读取时 101磁盘写错误,若磁盘满时,由CloseFile,Write,Writeln或...

【Delphi 基础知识 21】on E: Exception do 异常处理

这种结构的目的是在程序执行过程中，如果发生了try块中的代码引发的异常，程序会跳转到相关的except块，执行异常处理代码。: 这是处理异常的实际代码块，包含了对异常的处理逻辑。: 这是一个异常处理的标识符，E 是一个变量，它会引用实际的异常对象。Exception 是基础的异常类，它是所有异常的祖先类。是用于处理异常的语法结构。这是一个异常处理块，用于捕获并处理发生在try块中的异常。: 当try块中的代码引发异常时，程序会跳转到这里来处理异常。: 这是一个关键字，表示接下来的代码块可能引发异常。

delphi7 向程序发送命令时出现问题

在Windows7下安装完delphi7后，双击一个工程文件“*.dpr”，此时就默认启动delphi32.exe程序，并打开工程文件，但先提示“向程序发送命令时出现问题”，然后启动delphi32.exe，工程文件却没打开。遍查网络，没找到办法。决定从“delphi32.exe”下手，将其属性中的兼容设置取消（或者勾选兼容windows Server 2003 Servicepack 1），将...

求人看看这个代码，有关DLL中使用回调函数的问题：回调不能返回正确值

求人看看这个代码，有关DLL中使用回调函数的问题：回调不能返回正确值 Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiAPI/html/delphi_20061125234815170.html 用回调函数总是不能正确返回，我发送消息SendMessage是可以的。 unit Uni...

delphi excel 对象释放

代码如下：    ...    ExcelApp,workbook:   Variant;      ...    ExcelApp:=CreateOleObject( 'Excel.Application ');    workbook:=CreateOleObject( 'Excel.sheet '); 上次大家给我的代码是：  workbook.close;  Exc

使用 ExceptionDispatchInfo 捕捉并重新抛出异常

当你跑起了一个异步线程，并用 await 异步等待时，有没有好奇为什么能够在主线程 catch 到异步线程的异常？ 当你希望在代码中提前收集好异常，最后一并把收集到的异常抛出的时候，能不能做到就像在原始异常发生的地方抛出一样？ 本文介绍 ExceptionDispatchInfo，专门用于重新抛出异常。它在 .NET Framework 4.5 中首次引入，并原生在 .NE...

Delphi学习之Raise(抛出异常)

Raise是用来抛出异常的！ constructor TBaseFactory.Create(const IID: TGUID); begin if FactoryManager.Exists(IID) then Raise Exception.CreateFmt(Err_IntfExists,[GUIDToString(IID)]); FIntfGUID:=IID; Fa

Delphi异常处理机制

转自：http://blog.sina.com.cn/s/blog_5d9ee55e010103kr.html   Delphi的异常处理方式有两种：try...except...end;try...finally...end;。try...except主要用于捕获异常，只有出现异常的时候才会执行except部分。try...finally主要用于资源释放，无论try语句块是否有异常都

delphi 异常处理抛出消息

try except on e:Exception do begin ShowMessage(E.Message); exit; end; end;

Delphi中的异常处理

参考http://www.cnblogs.com/dashan9zj/archive/2008/11/22/1338841.html 一.异常的来源　　　　　　　　　　　　　　　　　　　 　　在Delphi应用程序中，下列的情况都比较有可能产生异常。 　　1.文件处理 　　2.内存分配 　　3.windows资源 　　4.运行时创建对象和窗体 　　5.硬件和操作系统冲突 　　...