Delphi – 第 11 頁 – Levin's Blog-林壽山的c# .net奇幻旅程

Delphi Infopower expendbutton運用

1. wwDBGrid1的 control type設為CustomEdit、Control Name為 wwExpendButton
2. wwExpendButton的 AutoHideExpend設True、DataSource與DataField設為wwDBGrid1顯示的內容、Grid設為wwDBGrid2、ShowAsButton與ShowText設為True
3. wwDBGrid2連結正確

Delphi偵測條碼槍方式

條碼槍的原理其實很簡單，就是一個仿鍵盤輸入的機器。
放上一個Edit元件，接著setfocus後
在edit的keypress檢查enter(#13)就行了
[pascal]
procedure TForm1.EdtBarcodeKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
// 處理EdtBarcode內容（就是刷到的條碼）
end;
end;
[/pascal]

Delphi自有的MD5函數

MessageDigest_5.pas路徑 source/Win32/soap/wsdlimporter

[pascal]
uses Types, MessageDigest_5;

procedure TForm1.Button1Click(Sender: TObject);
var
MD5: IMD5;
begin
MD5 := GetMD5;
MD5.Init;
MD5.Update(TByteDynArray(RawByteString(Edit1.Text)), Length(Edit1.Text));
Edit2.Text := LowerCase(MD5.AsString);
end;
[/pascal]
來源:颖川闲人的BLOG

Delphi 條件編譯語法 $IFDEF $ELSE $ENDIF

對Delphi來說，{}(左右大括號)內是註解，不過如果是{$(左大括號加錢字號)內容是給編譯器看的編譯指令。

編譯指令的用途為：

1.程式除錯

2.版本控制

定義方式：
1. Project -> Options… -> Conditional defines 程式定義
2. Unit內定義
[pascal]
｛$DEFINE xxxxx｝
[/pascal]

使用方式:
[pascal]
// 除錯用
{$IFDEF DEBUG}
ShowMessage(‘開發除錯模式’);
{$ENDIF}
{$IFDEF RELEASE}
ShowMessage(‘版本發佈模式’);
{$ENDIF}
[/pascal]

[pascal]
// 版本控制發佈MAC版本或WINDOWS版本
{$IFDEF MACOS}
MacApi.Appkit,Macapi.CoreFoundation, Macapi.Foundation,
{$ENDIF}
{$IFDEF MSWINDOWS}
Winapi.Messages, Winapi.Windows,
{$ENDIF}
[/pascal]