Delphi Direktif Kullanımı

[narkotik]

Derleme işleminin ilk safhasında , önişlemci derleyiciye bazı direktifler ulaştırır. Bu Makalede Delphide kullanılan bazı direktifleri inceleyeceğiz.

$IF DERLEYİCİ DİREKTİFİ 

Şart olarak sadece sistem ve bizim tanımladığımız sabitler const değerler kullanılabilir. 
Belirli değerleri diğerlerinden ayrıştırmak özelleştirmek için kullanılır. 
$IFDEF KULLANIMI 


$IF KULLANIMI

BAZI SİSTEM SABİTLERİ

                MSWINDOWS -- Windows platformunda derleniyor

                WIND32 -- 32 Bit Windowsta derleniyor

                LINUX-- Linux platformunda derleniyor

                CONSELE-- Console uygulaması ise

                ConditionalExpressions-- $IF direktifi kullanılabilir mi kontrol

                DİĞER                   http://docwiki.embarcadero.com/RADStudio...n_(Delphi)

PLATFORM DİREKTİFİ

Bu direktifi kullandığınızda yazdığımız kodun platform seçen örneğin sadece  Windowsta çalışan bir kod olduğunu belirtmiş oluruz.
Bu kodu kullandığımızda derleme sırasında bize Warning uyarı şeklinde "Symbol 'IncludeTrailing Rackslah is specific to platform' " uyarısı verilir.

[b]DEPRECATED DİREKTİFİ[/b]

Kullanımı platform ile aynıdır. Bu direktifin görevi, uyumluluk gerekçesi hala sistemin bir parçası olan, ancak gelecekte silinecek veya size uyumsuzluk riskleri çıkartabilecek belirleyicileri işaretlemektir.

LİBRARY DİREKTİFİ

Kullanımı platform ile aynıdır. Görevi bir kütüphaneye özgü VCL veya FMX ait olduğunu, taşınamaz olan kod veya bileşenleri işaretlemektir.

$WARN DİREKTİFİ

Bütün uyarı mesajlarını açıp kapatmamıza yarar.
                SABİTLER

                SYMBOL_PLATFORM

                SYMBOL_LIBRARY

                SYMBOL_DEPRECATED

$MESSAGE DİREKTİFİ

Yorum satırı gibidir. Bir bileşenin geliştiricisinin onu kullanan programcılarla iletişim kurarak potansiyel tehlikeler konusunda uyarmasını sağlamak açısından faydalıdır.

$REGION DİREKTİFİ

Genellikle yazılan kodları gruplamak için kullanılır.

[yhackup]

Emeğinize sağlık

[narkotik]

(11-03-2018, Saat: 17:49)yhackup Adlı Kullanıcıdan Alıntı: Emeğinize sağlık

Eyvallah

[mcuyan]

Çok güzel bir arşiv. Açıklayıcı.. Eliniz sağlık

[yhackup]

tam işim düştü resimler cortlamış.

[RAD Coder]

(19-12-2024, Saat: 16:23)yhackup Adlı Kullanıcıdan Alıntı: tam işim düştü resimler cortlamış.

Conditional compilation (Delphi)

[yhackup]

(19-12-2024, Saat: 16:57)RAD Coder Adlı Kullanıcıdan Alıntı:

(19-12-2024, Saat: 16:23)yhackup Adlı Kullanıcıdan Alıntı: tam işim düştü resimler cortlamış.

Conditional compilation (Delphi)

bunu denedim ama düzgün çalışmadı maalesef.

{$IFDEF CONDITIONALEXPRESSIONS}
{$IF CompilerVersion >= 17.0}
{$DEFINE HAS_INLINE}
{$IFEND}
{$IF RTLVersion >= 14.0}
{$DEFINE HAS_ERROUTPUT}
{$IFEND}
{$ENDIF}

[RAD Coder]

(19-12-2024, Saat: 17:38)yhackup Adlı Kullanıcıdan Alıntı:

(19-12-2024, Saat: 16:57)RAD Coder Adlı Kullanıcıdan Alıntı: Conditional compilation (Delphi)

bunu denedim ama düzgün çalışmadı maalesef.

{$IFDEF CONDITIONALEXPRESSIONS}
   {$IF CompilerVersion >= 17.0}
     {$DEFINE HAS_INLINE}
   {$IFEND}
   {$IF RTLVersion >= 14.0}
     {$DEFINE HAS_ERROUTPUT}
   {$IFEND}
{$ENDIF}

Yapılmak istenen nedir?
Bu sorudan yola çıkarak daha hızlı çözüm üretebiliriz.

[yhackup]

(19-12-2024, Saat: 17:55)RAD Coder Adlı Kullanıcıdan Alıntı:

(19-12-2024, Saat: 17:38)yhackup Adlı Kullanıcıdan Alıntı: bunu denedim ama düzgün çalışmadı maalesef.

{$IFDEF CONDITIONALEXPRESSIONS}
   {$IF CompilerVersion >= 17.0}
     {$DEFINE HAS_INLINE}
   {$IFEND}
   {$IF RTLVersion >= 14.0}
     {$DEFINE HAS_ERROUTPUT}
   {$IFEND}
{$ENDIF}

Yapılmak istenen nedir?
Bu sorudan yola çıkarak daha hızlı çözüm üretebiliriz.

Bende Rad 11 var, arkadaşımda Rad 10.3 

Benim yazdığım kod 10.3de doğrudan ac atıyor. source koda baktığımızda 11 ile 10.3 arasında JsonToObject işleminde farklar var. aşağıdaki gibi ayrım yapmaya çalışmıştım. 

{$IFDEF CONDITIONALEXPRESSIONS}
{$IF CompilerVersion >= 27.0}
     Result := TJson.JsonToObject<TFinekraReply>(ResponseJson);
{$IFEND}
{$IF RTLVersion >= 25.0}
     Result := TFinekraReply.Create;
     JSONObject := TJsonObject.Create;
     JSONObject.Parse(BytesOf(ResponseJson), 0);
     JsonArray := TJsonObject.ParseJSONValue(JSONObject.Values['value'].ToString) as TJSONArray;
     for JsonValue in JsonArray do
     begin
       Result.Value := Result.Value + [JsonToObject(JsonValue.ToString)];
     end;
{$IFEND}
{$ENDIF}

---

Ama şimdi buraya yazınca farkettim galiba hatalı yazmışım

[RAD Coder]

{$IF CompilerVersion = 33.0}
  ShowMessage('Delphi 10.3');
{$IFEND}
{$IF CompilerVersion = 35.0}
   ShowMessage('Delphi 11');
{$IFEND}