Derleyici Versiyonuna Göre Bildirim

[sabanakman]

Bir delphi versiyonuna göre bildirim kullanarak programlarımızı

Kod: Tümünü seç

{$ifdef VER190}
{$define DELPHI2007}
{$define DELPHI11}
{$define DELPHI7veUstu}
{$define DELPHI8veUstu}
{$define DELPHI9veUstu}
{$define DELPHI10veUstu}
{$define DELPHI11veUstu}
{$endif}

{$ifdef VER180}
{$define DELPHI2006}
{$define DELPHI10}
{$define DELPHI7veUstu}
{$define DELPHI8veUstu}
{$define DELPHI9veUstu}
{$define DELPHI10veUstu}
{$endif}

{$ifdef VER170}
{$define DELPHI2005}
{$define DELPHI9}
{$define DELPHI7veUstu}
{$define DELPHI8veUstu}
{$define DELPHI9veUstu}
{$endif}

{$ifdef VER160}
{$define DELPHI8}
{$define DELPHI7veUstu}
{$define DELPHI8veUstu}
{$endif}

{$ifdef VER150}
{$define DELPHI7}
{$define DELPHI7veUstu}
{$endif}

{$ifdef VER140}
{$define DELPHI6}
{$endif}

gibissinden yönlendirebiliriz. Sıkıntı, yeni çıkan delphi versiyonları olduğu zaman bu bildirimin bu versiyona göre elden tekrar geçmesi. Bunu pratik çözecek bir yöntem var mıdır yoksa bu teknikle devam mı etmek gerek? Delphi2008'in çıktığını bir düşünecek olursak yukarıdaki mantıkla dosyada muhakkak ekleme olacaktır. Bunu ekleme yapmadan anlayacak bir delphi bildirimi varmıdır acep?

[aslangeri]

s.a.
else kullanarak yeni bir versiyon çıktığında mesaj verdirebilirsin.

[sabanakman]

Bu mantığa göre çözüm {$DEFINE YeniVer} ile tanımalama yapıp mevcut versiyonlardan {$UNDEF YeniVer} ile tanımı silerek yapmak gerekecektir.

Kod: Tümünü seç

{$DEFINE YeniVer}

{$ifdef VER190}
{$define DELPHI2007}
{$define DELPHI11}
{$define DELPHI7veUstu}
{$define DELPHI8veUstu}
{$define DELPHI9veUstu}
{$define DELPHI10veUstu}
{$define DELPHI11veUstu}
{$UNDEF YeniVer}
{$endif}

{$ifdef VER180}
{$define DELPHI2006}
{$define DELPHI10}
{$define DELPHI7veUstu}
{$define DELPHI8veUstu}
{$define DELPHI9veUstu}
{$define DELPHI10veUstu}
{$UNDEF YeniVer}
{$endif}

{$ifdef VER170}
{$define DELPHI2005}
{$define DELPHI9}
{$define DELPHI7veUstu}
{$define DELPHI8veUstu}
{$define DELPHI9veUstu}
{$UNDEF YeniVer}
{$endif}

{$ifdef VER160}
{$define DELPHI8}
{$define DELPHI7veUstu}
{$define DELPHI8veUstu}
{$UNDEF YeniVer}
{$endif}

{$ifdef VER150}
{$define DELPHI7}
{$define DELPHI7veUstu}
{$UNDEF YeniVer}
{$endif}

{$ifdef VER140}
{$define DELPHI6}
{$UNDEF YeniVer}
{$endif}

function VerKontrol:Boolean;
begin
{$IFDEF YeniVer}
  Result:=True;
  ShowMessage('Bu delphi sürümü yeni çıkmış. Kodarı bi zahmet gözden geçir');
{$ELSE}
  Result:=False;
{$ENDIF}
end;

şeklinde yaparsak. VerKontrol fonksiyonu bizi uyaracaktır.