能自動關閉的訊息視窗

加到common.pas內

procedure ShowMsg(const STitle,SText:String; const ITimeOut:Integer);
var
  aFrm:TForm2;
begin
  aFrm:=TForm2.Create(nil);
  aFrm.Caption := STitle;
  aFrm.Label1.Caption := SText;
  aFrm.Timer1.Interval := ITimeOut;
  try
    aFrm.ShowModal;
  finally
    aFrm.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMsg('訊息測試','訊息內容................',4000);
end;

新增1個TButton，1個TLabel，2個Timer(1個顯示用interval用1000，2個enabled用false，並都加入事件)

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Button1: TButton;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    i : integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  i := Timer1.Interval div 1000;
  Button1.Caption := 'OK ('+inttostr(i)+')';
  Timer2.Enabled := true;
  Timer1.Enabled := true;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Timer2.Enabled := false;
  Timer1.Enabled := false;
  self.close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  self.close;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
begin
  Dec(i);
  Button1.Caption := 'OK ('+inttostr(i)+')';
end;

end.

thread用子覆蓋方式去執行各種方法

unit Unit2;

interface

uses
  Classes, StdCtrls, SysUtils, Windows, Messages, Dialogs;

const
  WM_IN = WM_USER + 1;
  WM_OUT = WM_USER + 2;

type
  TMyThread = class(TThread)
  private
    num : integer;
    Lb1 : TLabel;
    //hd  : THandle;
    procedure Download;
    //procedure DoVisible;
    //procedure showVisible(Lbt: TLAbel; B: Integer);
    { Private declarations }
  protected
    procedure calculate(A: Integer); virtual; abstract;
    procedure Execute; override;
  public
    constructor Create(lbc: TLabel; fund_name : string; sn:integer);
  end;

  TinFund = class(TMyThread)
  protected
    procedure calculate(C : Integer); override;
  end;
  ToutFund = class(TMyThread)
  protected
    procedure calculate(C : Integer); override;
  end;

implementation

uses Unit1;

constructor TMyThread.Create(lbc: TLabel; fund_name : string; sn:integer);
begin
//idhttp去抓sl
  //Lb1 := TLabel.Create(nil);
  num := sn;
  Lb1 := lbc;
  //hd:=hhd;
  FreeOnTerminate := True;
  inherited Create(False);
end;

{
procedure TMyThread.DoVisible;
begin
  Lb1.caption := inttostr(num);
end;


procedure TMyThread.showVisible(Lbt: TLAbel; B : Integer);
begin
  Lb1 := Lbt;
  num := B;
  Synchronize(DoVisible);
end;
}
procedure ToutFund.calculate(C : Integer);
var
  i : integer;
begin
  for i:=1 to C do
  begin
    //PostMessage(hd,WM_OUT,i,0);
    //if Terminated then Exit;
    if Assigned(Lb1) then
      Lb1.caption := inttostr(i);

  end;
  ShowMessage('kobe');
end;

procedure TinFund.calculate(C : Integer);
var
  i : integer;
begin
  for i:=1 to 5000 do
  begin
    //if Terminated then Exit;
    if Assigned(Lb1) then
      Lb1.caption := inttostr(i);
    //PostMessage(hd,WM_IN,i,0);


  end;
end;

procedure TMyThread.Execute;
begin
  Download;
  calculate(num);
  { Place thread code here }
end;

procedure TMyThread.Download;
begin

end;



end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, AppEvnts;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    ApplicationEvents1: TApplicationEvents;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
  private
    ThreadsRunning : integer;
    procedure ThreadDoe(Sender: TObject);
    procedure ThreadDoe1(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.ThreadDoe(Sender: TObject);
begin
  Dec(ThreadsRunning); //減到為0又可以可以重跑
  if ThreadsRunning = 0 then  
  begin
    Button1.Enabled := True; //Thread跑完後
    Button2.Enabled := True; //Thread跑完後
  end;
end;

procedure TForm1.ThreadDoe1(Sender: TObject);
begin
  //Dec(ThreadsRunning); //減到為0又可以可以重跑
  Button2.Enabled := True; //Thread跑完後
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  fund_name : string;
  sn : integer;
begin
  ThreadsRunning := 2;//2個Thread會同時跑

  button1.enabled:=false;
  //TDownLoad.Create.OnTerminate := ThreadDoe;
  fund_name := 'kobe1';
  sn := 100000;
  TinFund.Create(Label1, fund_name, sn).OnTerminate := ThreadDoe;

  button2.enabled:=false;
  sn := 500000;
  ToutFund.Create(Label2, fund_name, sn).OnTerminate := ThreadDoe;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  fund_name : string;
  sn : integer;
begin
  button2.enabled:=false;
  sn := 5000000;
  ToutFund.Create(Label2, fund_name, sn).OnTerminate := ThreadDoe1;

end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
{
  if Msg.message = WM_IN then
    Label1.Caption:=IntToStr(Msg.wParam);
  if Msg.message = WM_OUt then
    Label2.Caption:=IntToStr(Msg.wParam);
    }
end;

end.

讓視窗程式開啟時，位置在螢幕的中間偏上

通常是設定在position屬性=poScreenCenter，但是那個是正中間，對於一般人的眼睛視線應該是中間偏上比較息慣，所以你可以在FormShow時加入下列程式碼：

procedure TForm1.FormShow(Sender: TObject);
begin
  left := (screen.Width - Width) div 2; //等寬
  top :=  (screen.Height - Height)*1 div 3; //高度偏上
end;

用執行序去跑ADO資料庫更新

unit Unit1;

uses unit2;

procedure TForm1.Button3Click(Sender: TObject);
begin
  jjj := strtoint(Edit6.text); //jjj為記錄資料庫塞爆的全域變收

  button1.enabled:=false;
  TDownLoad.Create.OnTerminate := ThreadDoe;
end;

procedure TForm1.ThreadDoe(Sender: TObject);
begin
  //Dec(ThreadsRunning); //減到為0又可以可以重跑 //如果TDownLoad.Create很多個同時
  Button1.Enabled := True; //Thread跑完後
end;

unit Unit2;

interface

uses
  Classes, ADODB, Dialogs, Forms;//這裡也使用Forms不太好

type
  TDownload = class(TThread)
  private
    procedure Download;
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;

implementation

uses Unit1;

{ TDownload }
constructor TDownload.Create;
begin
  FreeOnTerminate := True;
  inherited Create(False);
end;

procedure TDownload.Execute;
begin
  Download;
  { Place thread code here }
end;

procedure TDownload.Download;
var
  i : integer;
  query1 : string;
  FADOQuery : TADOQuery;
  FADOConn : TADOConnection;
begin

  //showmessage(Edit3.text);
  FADOConn :=  TADOConnection.Create(nil);
  FADOQuery:=TADOQuery.Create(nil);
  FADOConn.ConnectionString := svr_string;
  FADOConn.Connected := True;

  FADOQuery.Connection := FADOConn;
  try
    try
      for i := 0 to jjj - 1 do
      begin
        if not SQLExecuteOK(FADOQuery, 'insert into test (k) values (3)') then
          ShowMessage('Query ERROR!!');
        Application.ProcessMessages;

      end;
    except
      showmessage('error');
    end;
  finally
    FADOQuery.free;
    FADOConn.Free;

  end;
end;

end.

一個TLabel文字用不同顏色

首先在Label1的Caption文字設定 '台灣股票 漲▲▼ 36.52'
然後在你要變化的事件加入

Label1.Canvas.Font.Color := clBlue;
Label1.Canvas.textout(Label1.Canvas.TextWidth('台灣股票 漲'),0,'▲');

//另外一種寫法，記得前面不可用Label1.Caption否則要按兩次才可以顯示
Label1.Canvas.TextOut(0,0,'台灣股票 漲▲546.3');
Label1.canvas.Font.Color:=RGB(255,45,45);
Label1.Canvas.TextOut(Label1.Canvas.TextWidth('台灣股票 漲'),0,'▲');

ElTree使用

procedure TForm1.FormShow(Sender: TObject);
var
  old_dept: string;
  i: integer;
  Node,NewNode:TELTreeItem;
begin
  VirtualTable1.Filtered:=True;
  VirtualTable1.Active:=True;
  Node:=nil; // 避免編譯時出現警告訊息
  ElTree1.Selected:=Nil;
  ElTree1.Items.Clear();
  ElTree1.Items.BeginUpdate();
  try
    old_dept := #13#10;
    VirtualTable1.First;
    for i:=0 to VirtualTable1.RecordCount-1 do
    begin
      if VirtualTable1.FieldByName('bank').AsString <> old_dept then
      begin
        Node:=ElTree1.Items.Add(Nil,VirtualTable1.FieldByName('bank').AsString);
        Node.ShowCheckBox:= True ;
        //Node.CheckBoxType := ectCheckBox ;
        //Node.CheckBoxEnabled := True ;
        Node.UseStyles := True ;
        Node.MainStyle.OwnerProps := False;
        Node.MainStyle.FontSize:=10;
        Node.MainStyle.FontName:=Screen.MenuFont.Name;
        //Node.ImageIndex:=13;
        old_dept:=VirtualTable1.FieldByName('bank').AsString;
      end;
      NewNode:=ElTree1.Items.AddChild(Node,VirtualTable1.FieldByName('accout').AsString);
      NewNode.ColumnText.Add(VirtualTable1.FieldByName('money').AsString);
      //NewNode.ShowCheckBox:= True ;
      //NewNode.CheckBoxType := ectCheckBox ;
      //NewNode.CheckBoxEnabled := True ;
      NewNode.UseStyles := True ;
      NewNode.MainStyle.OwnerProps := False;
      NewNode.MainStyle.FontSize:=10;
      NewNode.MainStyle.FontName:=Screen.MenuFont.Name;
      //NewNode.ImageIndex:=12;

      VirtualTable1.Next;
    end;
  finally
    ElTree1.Items.EndUpdate();
  end;

end;

procedure TfrmMain.TreeItemFocused(Sender: TObject);
begin
  //顯示所按的標籤文字
  //Caption:=ElTree1.ItemFocused.text;
  //顯示他爸爸的標籤文字
  if ElTree1.itemFocused.Parent <> nil then
    Caption:=ElTree1.ItemFocused.Parent.text;
  //顯示第一個結點的標籤文字
  //Caption := ElTree1.Items.GetFirstNode.Text;
  //顯示所有結點的數目
  //Caption := inttostr(ElTree1.Items.Count);
end;

(2)說明
ElTree1.Items.GetFirstNode 返回TREEVIEW的第一個節點,函數類型為
:TTreeNode
ElTree1.Items.Count 返回當前TreeView的全部節點數,整數
ElTree1.Selected.Level 返回當前選中節點的在目錄樹中的級別,
根目錄為0
ElTree1.Selected.Parent 返回當前選中節點上級節點,函數類型為
:TTreeNode

參考網址
http://www.delphibbs.com/keylife/iblog_show.asp?xid=19823

日期相差多少年、月、日、時、分、秒

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  a,b: Tdatetime;
  c: string;
begin
  a:=2007/3/13;
  b:=2006/3/2;
  c := '';
  if (daysbetween(a,b) div 30) <> 0 then
    c := inttostr(daysbetween(a,b) div 30)+'個月';

  if ((daysbetween(a,b) mod 30) <> 0)and ((daysbetween(a,b) div 30) <> 0)then
    c := c + '又' + inttostr(daysbetween(a,b) mod 30)+'天'
  else if (daysbetween(a,b) mod 30) <> 0 then
    c := inttostr(daysbetween(a,b) mod 30)+'天';

  showmessage(c);
  showmessage(inttostr(yearsbetween(a,b))+'年');
  showmessage(inttostr(monthsbetween(a,b))+'月');
  showmessage(inttostr(daysbetween(a,b))+'天');
  showmessage(inttostr(hoursbetween(a,b))+'小時');
  showmessage(inttostr(minutesbetween(a,b))+'分鐘');
  showmessage(inttostr(secondsbetween(a,b))+'秒');
end;

把idhttp寫成一個執行序

1、在idhttp.OnWork事件裡加Application.ProcessMessages;
在窗體上放個idhttp控件，寫他的OnWork方法。
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
Application.ProcessMessages;
end;

2、
   //在主窗體中定義一個線程類
   type
    TMyDownLoad=class(TThread)
    protected
       procedure Execute;override;
       procedure Download;
    end;

type
  TFMain = class(TForm)
  ....

procedure TMyDownLoad.Download;
Var
  UnitName,PathName:String;
  MyStream:TMemoryStream;
  filepath:string;
  IDHTTP: TIDHttp;
begin
IDHTTP:= TIDHTTP.Create(nil);
MyStream:=TMemoryStream.Create;
try
  IdHTTP.Get('http://127.0.0.1/aiyouasp/testcode/11.exe',MyStream);
  except
    showmessage('網絡出錯未能下載完成！');
    MyStream.Free;
    Exit;
  end;
  filepath:=ExtractFilePath(ParamStr(0));
  MyStream.SaveToFile(filepath+'\DownLoadFiles\11.exe');
  MyStream.Free;
  showmessage('下載完成！');
end;
procedure TMyDownLoad.Execute
begin
      inherited;
      Download;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
      TMyDownLoad.Create(false);
end;

如何使TProgressBar與TStatusBar結合在一起

新增1個TButoon、1個TProgressBar及1個TStatusBar
事件加入FormCreate及OnDrawPanel

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  ProgressBar1.Position := 0;
  ProgressBar1.Max := 100;

  for i := 0 to 100 do
  begin
    ProgressBar1.Position := i;
    Sleep(25);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 ProgressBarStyle : integer;
begin
 //將狀態列的第二塊面板設為的自繪（即psOwnerDraw）
 StatusBar1.Panels[1].Style := psOwnerDraw;

 //將進程條放入狀態列
 ProgressBar1.Parent := StatusBar1;

 //去除狀態列的邊框，這樣就與狀態列溶為一體了
 ProgressBarStyle := GetWindowLong(ProgressBar1.Handle,GWL_EXSTYLE);
 ProgressBarStyle := ProgressBarStyle - WS_EX_STATICEDGE;
 SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, ProgressBarStyle);
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
begin
    progressbar1.BoundsRect:=rect;
end;

CheckBox、RadioButton、ListBox

CheckBox
可以拿來做複選的方式。重要屬性如下：
checked : true 或 false ，gray及unchecked皆為 false，而 checked 為 true。
state : 如果 allowgrayed為true，則有三種狀態
type TCheckBoxState = (cbUnchecked, cbChecked, cbGrayed);
allowgrayed：是否需要灰階的選項
常用程式碼

function showState(state: TCheckBoxState):string;
begin
   case state of
     cbUnchecked : result:='unchecked';
     cbChecked : result:='checked';
     cbGrayed : result:='grayed';
   end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   checkbox1.AllowGrayed:= not checkbox1.AllowGrayed;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
   if checkbox1.Checked=true then
     showmessage('checkbox1 = true')
   else
     showmessage('checkbox1 = false');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
   showmessage(showState(checkbox1.state));
end;

RadioButton
常放在Panel、RadioBox及GroupBox中，才能形成一組多選一的狀態

//先選擇一組內的所有Radio(shift選取)，然後選擇共同的事件
var
  blood : string;//blood為全域變數
procedure TForm1.RadioButton1Click(Sender: TObject);
var i: integer;
begin
  blood:=Tradiobutton(sender).Caption + '型';
end;
//最後確定的按鈕就為
procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage( blood + #10); //#10多加(自己亂加的)跳行意思
end;
//動態加入radiobuttoon於radiogoup中
procedure TForm1.Button1Click(Sender: TObject);
begin
  radiogroup1.Items.Add(edit1.Text);
end;
//將剛剛動態加入radiobuttoon清除
procedure TForm1.Button3Click(Sender: TObject);
begin
  radiogroup1.Items.clear;
end;
//將剛剛動態加入radiobuttoon清除
procedure TForm1.Button4Click(Sender: TObject);
begin
  radiogroup1.Columns:=2;
end;

ListBox

//單選，並得知ListBox1選哪一個
procedure TForm1.Button1Click(Sender: TObject);
begin
  listbox1.MultiSelect:=false;
showmessage(listbox1.Items[listbox1.ItemIndex]);
end;
//排序或不排序，一直做反向處理
procedure TForm1.Button3Click(Sender: TObject);
begin
  listbox1.Sorted:=not listbox1.Sorted;
end;
//加新的Item進去
procedure TForm1.aa1Click(Sender: TObject);
begin
  listbox1.AddItem(edit1.Text ,nil );
end;
//刪除Item
procedure TForm1.delete1Click(Sender: TObject);
begin
  listbox1.DeleteSelected;
end;
//顯示所有選到，這是可複選才要喔
procedure TForm1.showSelected1Click(Sender: TObject);
var 
  i: integer;
  s: string;
begin
  for i:= 0 to listbox1.Items.Count -1 do
  begin
    if listbox1.Selected[i] then
    s:= s + ' ' + listbox1.Items.Strings[i];
  end;

ComboBox
重要屬性
items
text
maxLength
dropDownCount
style
autocomplete
autodropdown//自動下拉到你要的

procedure TForm1.ComboBox1Click(Sender: TObject);
//加入一個新的Item
begin
  listbox1.Items.Add(combobox1.Text );
end;

換好看的介面囉

最好看的商業界面元件
BSF BusinessSkinForm
http://www.2ccc.com/article.asp?articleid=4436

換膚元件
VCLSkin Skinpack
http://www.cnblogs.com/support/archive/2007/05/10/741878.html

指標的使用

procedure TForm1.Button1Click(Sender: TObject);
var
  P: ^Integer; //P為一個指標，指標內存變數為Integer
  X: Integer;
begin
  P := @X; //用@ 符號把另一個相同類型變數的地址賦給它
  // 改變此位址的值有兩種方法
  X := 10;
  P^ := 20;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  P: ^Integer;
begin
  // initialization
  New (P); //動態分配內存
  // operations
  P^ := 20;
  ShowMessage (IntToStr (P^));
  // termination
  Dispose (P); //記得在此釋放喔
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  P: ^Integer;
begin
  P := nil; //空指標如果還要顯示，那要加nil，否則會出現"一般保護錯"（GPF）的錯誤
  ShowMessage (IntToStr (P^));
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  P: ^Integer;
  X: Integer;
begin
  P := @X;
  X := 100;
  if P <> nil then  //所以結論用此來顯示，會比較安全
    ShowMessage (IntToStr (P^));
end;

元件一起設定屬性(事件)

按Shift然後選所有要更動的元件，然後你就可以一起設定他們的屬性或事件囉!!

Parent ，Owner ，Sender ，Self ，is ，as 的用法

甚麼是Parent?
Parent 就是直接包含物件本身的 container (容器)。
例如：在 form1上加上一個 button1，則 button1的 parent就是 form1，若在 form1上加上一個 panel1，然後在 panel1上再加上一個 button2，則 panel1的 parent就是 form1，而 button2 的 parent 就是 panel1。

甚麼是 Owner ?
Owner 表示物件的擁有者，owner主要負責兩件事，一是owner的記憶體空間被移除時，其所擁有的物件亦將同時被移除。二是 owner須負責載入及儲存 被擁有者的published屬性。
通常一個表單 form擁有在其上的所有元件，所以表單被移除時，其上面的元件之記憶體空間亦將被移除。
一個應用程式則擁有所有的表單，所以應用程式結束時，所有元件擁有的記憶體亦將移除。

甚麼是 sender ?
Sender就是觸發這個事件的物件。
例如：
在 form1上加上四個 button (button1, button2, button3, button4) 及一個 edit1。
button1的 onclick事件加上指令如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
   if sender is Tbutton then
      showmessage(Tbutton(sender).Caption)
   else if sender = nil then
      showmessage('no sender')
   else if sender = edit1 then
      showmessage('from edit1');
end;

button2 的 onclick事件，點選 Button1click。
button3 的 onclick 事件，寫上下列指令

procedure TForm1.Button3Click(Sender: TObject);
begin
button1Click(nil);
end;

button4 的 onclick 事件，寫上下列指令

procedure TForm1.Button4Click(Sender: TObject);
begin
button1click(edit1);
end;

edit1 的 onclick 事件，點選 Button1Click。
F9執行後，分別點選button1, button2, button3, button4, edit1，觀察其結果。

甚麼是 is ?
is 是一個運算子，用來判斷一個物件是否屬於某一種類別或其繼承者。
語法： object is class
例如： if sender is Tedit then ...
if sender is Tobject then .... //只要是物件，則永遠成立，因所有物件皆繼承 Tobject。

甚麼是 as ?
as 是一個運算子，可以將一個物件指定成某一種類別，若型態錯誤，將傳回 EInvalidCast之例外。
例如：showmessage((sender as Tbutton).caption); // 如果 sender 在執行階段為 Tbutton 則可顯示caption屬性。

甚麼是 self?
Self是指目前程式碼所屬的物件。
例如：
procedure TForm1.Button1Click(Sender: TObject);
begin
self.color:=clred; // self 表示 form1
end;

判斷資料表是否存在

Function TableExist( pConn:TADOConnection; pcTable : string ) : boolean ; overload ;
var
  tmpFldList : TStrings ;
  nLoop : integer ;
begin
  Result := False ;
  tmpFldList := TStringList.Create ;
  pConn.GetTableNames( tmpFldList, True ); // 包含系統表
  for nLoop := 0 to tmpFldList.Count - 1 do
  begin
    if uppercase( tmpFldList[nLoop] ) = uppercase( pcTable ) then
    begin
      Result := True ;
      break ;
    end;
  end;
  tmpFldList.Free ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  if TableExist(ADOConnection1, '富達新興') then
    showmessage('ok');
end;

判斷某一日期是否小於現在

procedure TForm1.Button1Click(Sender: TObject);
var
  pDate : AnsiString;
begin
  pDate:='2007/11/01';
  if strtodate(pDate) < strtodate(FormatDateTime('yyyy/mm/dd', Now)) then
    showmessage(datetostr(now()));
end;

如何快速的跳到所要的函式位置

通常要追蹤函式位置時，會先按Ctrl然後點函式名字，接著跳到函式宣告的地方，然後再按Ctrl + Shift + "下"方向鍵，然後便自動跳到函式內容地方。