摘要： Const ExecSQLMode = 0 ; OpenSQLMode = 1 ; ResultRight = ''SQL query result is right'' ; ．．． function RunSql(RunQuery: TQuery; Sqls: TStringList; var ErrorMsg: string; Mode: integer) : integer ; begin ErrorMsg := ResultRight ; Result := 0 ; try RunQuery.DatabaseName := ''Recor 阅读全文

摘要： unit webjb;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,OleCtrls, SHDocVw, StdCtrls, ExtCtrls, DBCtrls, Db, DBTables, newcomb;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Memo1: TMemo; WebBrowser1: TWebBr 阅读全文

摘要： [DELPHI]$2501錯誤處理 這是我之前將Delphi應用程式部署到客戶端後有時會碰到的錯誤訊息，常發生於啟動AP時[問題點說明]1) 啟動程式會出現 initialize Borland Database Engine($2501)。2) Insufficient memory for this operation ($2501)。3) 執行CrystalReport報表時, 無法正常顯示報表結果。4) 出現 Error:533 Unable to open Database。[利用以下方式，大致上都可解決]1) 關閉所有Delphi開發的應用程式。2) 尋找BDE Administr 阅读全文