有些指令在D6 和D7的語法不同 請問如何在程式中判斷我目前使用的Delphi是D6 或是D7呢?

要看 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 不能做到的。