Delphi
文章平均质量分 72
lixianxiang
这个作者很懒,什么都没留下…
展开
-
TDBGrid+TCheckBox
1.Query1虛擬兩個欄位: APPROVE, REJECT即: Query1.SQL.Text := select F APPROVE, F REJECT,A. * from pdm038m a; 2.設置DBGrid1.Options.dgEditing為False;3.procedure TForm1.DBGrid1DrawColumnCell(原创 2007-08-11 14:13:00 · 695 阅读 · 0 评论 -
Delphi中Create and call DLL
1. create DLL (方法1): library MyDLL; uses SysUtils, Classes, DLL in DLL.pas; ...{$R *.res} exports AddIt, SubIt; begin end. unit DLL; // 新增一個單元文件 interface function AddIt(x1,原创 2007-08-11 14:10:00 · 784 阅读 · 0 评论 -
導入EXCEL、二維數組的運用
procedure TForm1.btnPrintClick(Sender: TObject);var Lv_ExcelApp, Lv_ExcelWkBook, Lv_ExcelWkSheet: Variant; Lv_i, Lv_j, Lv_z, Lv_Cnt, Lv_RowStart: Integer; Lv_Sum: Real; Lv_MaxMonth, Lv_MaxMonthR原创 2007-10-10 08:45:00 · 725 阅读 · 0 评论 -
自定義部件
unit Employee;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TEmployee=class(TComponent) private FName: string[10]; FAge: I原创 2007-10-10 09:01:00 · 397 阅读 · 0 评论 -
delphi中{$DEFINE}的理解
// 當你開發及DEBUG時,將REMARK(//) 移除// {$DEFINE SPECIFIC_USER }const TEST_USERID = sfc;const TEST_USERPASSWORD = sfccfs;.......這里,{$DEFINE SPECIFIC_USER }跟const TEST_USERID = sfc;const TEST_USERPASSWO原创 2009-01-07 11:45:00 · 2530 阅读 · 0 评论 -
delphi中結束進程
uses TLHelp32;procedure TfrmSCCE100.Pvt_EndProcess(AFileName: string);const Cv_PROCESS_TERMINATE=$0001;var Lv_ExeFileName: string; Lv_ContinueLoop: BOOL; Lv_FSnapshotHandle: THandl原创 2009-01-07 11:52:00 · 715 阅读 · 0 评论 -
delphi 啟動外部程式(收藏參考)
// 上傳檔案IdFTP.Put(ALocalFileName, AServerFileName,False); // 下載檔案IdFTP.Get(AServerFileName, ALocalFileName,AUpdateMode,False); // 檢查文件是否存在try IdFTP.List(Lv_LS,ALoca原创 2009-01-07 12:54:00 · 701 阅读 · 0 评论