Levin's Blog-林壽山的c# .net奇幻旅程 – 第 33 頁 – 大型網站架構．.net 架構師．rabbitMQ．redis．行動開發．APP開發教學．PHP Laravel開發．.net core C# 開發．架構師之路．Delphi開發．資料庫程式．進銷存．餐飲POS系統

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]

Delphi開發路上你不孤單~調查目前狀況

前陣子做了一個「Delphi使用調查」，今天來發佈小小的結果。如果對是那家公司有興趣，就請加入 Delphi Developer【Delphi開發者】社團。

iPhone直接撥分機方式

常收到客戶的名片有分機號碼，輸入電話時該怎麼輸入?
iPhone是按住*字鍵後，會出現逗號(,)後面打上分機就行了

P.S HTC手機連按兩下＊鍵，就能叫出P，其他手機就要查看看了

Delphi 交易處理(ADO)

[pascal]
begin
ADOConnection1.BeginTrans;
try
// 資料庫相關操作
ADOConnection1.CommitTrans;
except
on E:Exception do Begin
ADOConnection1.RollbackTrans;
End;
end;
end;
[/pascal]

Delphi 追蹤程式執行時間

[pascal]
var
StartTime, EndTime: cardinal;
begin
StartTime := GetTickCount;
sleep(1000);
EndTime := GetTickCount;
caption := (IntToStr(EndTime – StartTime) + ‘ ms’);
end;
[/pascal]