[轉貼]如何判斷 Delphi 的版本

[tim]

要看 Delphi Complier 的 Version 可用 CompilerVersion
要看 Run Time Library 的 Version 可用 RTLVersion

基本上它們都是 Delphi 的 Version + 8 (應是連 Pascal 時代的 version 一起計算)

要取得 Delphi 的version 將它們減 8 就可以了。

procedure Tform1.Button1Click(Sender: TObject);
begin
ShowMessage('Delphi ' + FloatToStr(CompilerVersion - 8));
ShowMessage('RTL ' + FloatToStr(RTLVersion - 8));
end;

另外你也可用 complier directive :

{$IFDEF VER150}
ShowMessage('Delphi 7');
{$ELSE}
ShowMessage('Delphi 6 or older');
{$ENDIF}

這樣寫的好處是當 Comply 時若 Complier 是 Delphi 7 就只會 Comply 第一句完全跳過第二句，反之便只會Comply 第二句完全跳過第一句。
這樣即使你在 {$IFDEF VER150} 呼叫只有 Delphi 7 才有的新函數，在 Delphi 6 中 Comply 也不會報錯。另外也可在不同版本 uses 不同的 File, 定義不同的 函數等等，這是用 if Compiler Version = 15 不能做到的。