其他

assigned 是用來判斷某一指標(pointer)或過程引用是否為nil(空)，如果為空白則返回假（false）。用法樣本(防止表單被執行個體化多次)：unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;   

《DELPHI 5開發人員指南》21.4 組件包 Delphi 3引入了包的概念，這樣就可以把應用程式的一部分放到一個單獨的模組中，讓其他應用程式共用。包類似於動態連結程式庫( DLL)，但用法不一樣。包主要收集組件並把它們放到一個獨立的、可共用的模組(一個Borland Packages Library或.BPL檔案)中。在應用程式開發過程中，包就像動態連結程式庫一樣，它也是在運行期動態地連結到應用程式中的，而不是在編譯連結期連結的。因為代碼是放在. b p

MDI子表單關閉時用到的(以下摘自Delphi的協助)caNone  The form is not allowed to close, so nothing happens.caHide  The form is not closed, but just hidden. Your application can still access a hidden form.caFree  The form is closed and all allocated memory for the form

更詳細教程參見：http://www.cnblogs.com/del/category/122614.htmlDelphi中資源檔使用詳解一．編寫 RC 指令碼文本用記事本或其它文字編輯器編寫一個副檔名為“.rc”的檔案。格式如下：AVI 無聲動畫BITMAP 位元影像檔案CURSOR 游標檔案ICON 表徵圖檔案WAVE 音效檔以上所列均為標準資源類型，也可以給資源自訂一個類型，如：“mytype”。不過兩者在調用方式上有些不同（在後面樣本“存取資源檔中的位元影像”中有詳細描述）。二．根據

轉載至：http://www.cnblogs.com/hackpig/archive/2010/02/15/1668513.html概要介紹：Object Pascal語言的結構比較特殊，跟C有很大的不同，但是它秉承PASCAL語言的一貫結構化的傳統，相信大家很容易就可以瞭解。一：Program 單元     一個object  Pascal程式，是由一個特殊的單元和若干個可選的單元組成的，也就是說一個最簡單的Object

目錄目錄前言認識水晶報表1、報表組件概述2、報表組件 Viewer3、CrystalReportPartsViewer 類4、CrystalReportPartsViewer

轉載至

     原來想寫一篇關於水晶報表應用系列的總結,可是時間老是抽不出來。眼看著計劃被打亂（心痛啊），也沒折。今天把事情做過完了，看看還有一點時間，就前兩天跟一個朋友解決水晶報表問題時用交叉表的例子寫出來,說明一下交叉表的應用。希望能對新手有所協助，也歡迎大蝦仍轉頭。首先我們看到這個一個表結構：要把表中的資料做成這樣格式的報表:我當時想到了兩種方法:第一種:在資料庫裡通過SQL語句先把表的行與例進行倒位。這種方式就是純資料庫處理,之後用一個普通的水晶報表把資料展示出來就可以了。簡單明了，具體的代碼

建立有個性的對話方塊之MFC篇http://tech.163.com/　2006-07-05 10:50:36　來源: csdn　　網友評論0 條 論壇　想使自己的軟體與眾不同就要給軟體加點“色”，一個顏色搭配協調的視窗要比windows千篇一律的灰底黑字更能吸引別人的眼球。設想如果html瀏覽器顯示的網頁都是白底黑字，還會有那麼多的mm喜歡上網嗎？可能互連網的人氣將下降一半。做個出色的介面對於老手來說可能不在話下，但是對於新手來說還是無從下手，使用BCGControlBar和Xtreme

許多WINDOWS應用程式的中西文錄入介面中，中西文的錄入需要反覆轉換漢字IME，使用起來非常繁瑣。筆者在利用DELPHI研發某MIS的過程中，找到了一種比較簡捷的解決辦法。　　本文設計環境為DELPHI CLIENT/SERVER SUIT VER3.0(以下簡稱DELPHI3.0)，中文WINDOWS’95。　　一、DELPHI3.0下Imename

李維的<Inside VCL>.書中第一章中舉的第一個console程式中有以下的函式宣告:function WindowProc(Window:HWND;AMessage:UINT;WParam:WPARAM;LParam:LPARAM):LRESULT;stdcall;export;不知道你想過一個問題沒:在Delphi中是不區分大小寫,也就是說這裡的聲明中變數名和類型名相同了.而我們在學Pascal,C/C++的時候,老師常對我們說不能去關鍵字作為變數名,為什麼這裡又能使用呢?

     1、努力 　　 工作要努力，隨隨便便過日子過四五年也是過，稍微努力的過四五年也是過，努力的過四五年也是過，何不努力好好的幹。如果努力的過好畢業後的四五年，這對我們以後的人生非常有協助。 　　 　　2、虛心學習 　　 多與比自己大的人(長輩)/成功人士交流學習，要虛心聽取/認真分析他們的意見和建議，以免自己以後走彎路。 　　 　　3、自由 　　

轉載至：http://hi.baidu.com/software_2008/blog/item/7d768731dde7ee11eac4af16.html系統預定義錯誤碼SQL Server

procedure TForm1.FormCreate(Sender: TObject);var  listitem:TListItem ;begin  tlistview(lv1 ).Items.BeginUpdate;    try      tlistview(lv1 ).Items.Clear;      with qry1 do      begin      Close;      SQL.Clear ;      SQL.Add('select * from student'); 

虛擬鍵碼對照表 虛擬鍵碼 對應值 對應鍵VK_LBUTTON1滑鼠左鍵VK_RBUTTON2滑鼠右鍵VK_CANCEL3CancelVK_MBUTTON4滑鼠中鍵VK_XBUTTON15VK_XBUTTON26VK_BACK8BackspaceVK_TAB9TabVK_CLEAR12ClearVK_RETURN13EnterVK_SHIFT16ShiftVK_CONTROL17CtrlVK_MENU18AltVK_PAUSE19PauseVK_CAPITAL20Caps LockVK_KANA2

一.機械碼,又稱機器碼.ultraedit開啟,編輯exe檔案時你會看到許許多多的由0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F組成的數位,這些數位就是機器碼.修改程式時必須通過修改機器碼來修改exe檔案.二.需要熟練掌握的全部彙編知識(只有這麼多)不大容易理解,可先強行背住,混個臉兒熟,以後慢慢的就理解了cmp a,b 比較a與bmov a,b 把b的值送給aret 返回主程式nop 無作用,英文“no operation”的簡寫，意思是“do nothing”(機器碼90)

萬用字元函數 MatchesMask 的使用 usesMasks;procedure TForm1.Button1Click(Sender: TObject);vars: string;begins := 'http://www.132435.com';MatchesMask(s,'http://*'); //True MatchesMask(s,'HTTP://*.com'); //True MatchesMask(s,'*.com');

unit mainunit;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons,Registry;type  TForm1 = class(TForm)    GroupBox1: TGroupBox;    RadioButton1: TRadioButton;    CheckBox1: TCheckBox; 

Delphi中使用ADO串連Excel有感    By panther666 今天在Delphi中使用ADO串連Excel(以前在一本書看過，複習一下-_-!!)，有所收穫，不敢獨享。 第一部分： 1. 設定ADOConnection的ConnectionString屬性的OLE DB的提供者要選擇Microsoft Jet 4.0 OLE DB Provider(這本來是用於串連Access資料庫的驅動程式，但也可開啟Excel檔案),按 "下一步"按鈕 2.

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    edt1: TEdit;    btn1: TButton;    procedure FormCreate(Sender: TObject);  private    procedure