Delphi Can

(22-08-2023, Saat: 22:45)mrmarman Adlı Kullanıcıdan Alıntı: [ -> ]Önerim, sınıf yapısı ile kod çeşitliliği sağlamak yönündedir.

Avantajları
1. ortak fonksiyon/procedure kullandırabilirsiniz
( web çağrı, string fonksiyon, db fonksiyon vb. ortak olabilir)
2. Yönetim için bağımsız fonksiyon /proc yazabilir bunlar içerisinden ortak veya lazım oldukça istemci fonksiyon /procedure kullanabilirsiniz
3 Client için bağımsız fonksiyon / procedure yazabilir, ortak veya server procedure / function kullandırabilirsiniz.


Create zamanı (construction) exenin ne olduğuna bakıp sınıfı farklılaştırabilirsiniz.

//
// veteran
// 24-08-2023
//

uses
 System.SysUtils;

const
 AppType_ERP = 'ERP';
 AppType_ERPSYS = 'ERPSYS';

 AppType = AppType_ERPSYS;

begin
{$IF AppType = AppType_ERP}
   WriteLn( 'ERP' );
{$ELSEIF AppType = AppType_ERPSYS}
   WriteLn( 'ERPSYS' );
{$ELSE}
   WriteLn( '???' );
{$IFEND}

 ReadLn;
end.

{$define ERP}

uses
  {$if defined(win32)}
    FireDac.Phys.MongoDB, // Win32 ise MongoDB kullan
  {$elseif defined(win64)}
    FireDac.Phys.MSSQL,   // Win64 ise MSSQL kullan
  {$ifend}
    System.DateUtils;

{$if defined(win32)}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  {$if defined(ERP)}
    Showmessage('ERP ve Win32 Projesidir');
  {$else}
    Showmessage('Standart ve Win32 Projesidir');
  {$ifend}
end;
{$else}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  {$if defined(ERP)}
    Showmessage('ERP ve Win64 Projesidir');
  {$else}
    Showmessage('Standart ve Win64 Projesidir');
  {$ifend}
end;
{$endif}

(24-08-2023, Saat: 21:54)mrmarman Adlı Kullanıcıdan Alıntı: [ -> ]@veteran

Bu verdiğiniz örnek tam olarak açıklamıyor. Çünkü normal if ile yazsanız aynı sonucu vermeyecek mi ?

Şu şekilde örneklersek kapsamını daha iyi ifade ederiz diye değerlendiriyorum.

Örneğin aşağıda 
1. Uses altında iki farklı unit iki farklı duruma göre alternatifli olarak tanımlanmış oldu. 
* Hangi durumdaysa diğeri henüz derlenirken dahi yok sayılacaktır.

2. Aynı TForm1.BitBtn1Click olayını bir defa tanımladık ama iki defa içerik oluşturduk. 

Derleyici bunlara hata vermeyecektir, duruma göre pozisyon alacaktır.

Tümüyle örneklemek içindir. Anlam yüklemeyelim ...

{$define ERP}

uses
  {$if defined(win32)}
    FireDac.Phys.MongoDB, // Win32 ise MongoDB kullan
  {$elseif defined(win64)}
    FireDac.Phys.MSSQL,   // Win64 ise MSSQL kullan
  {$ifend}
    System.DateUtils;

{$if defined(win32)}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  {$if defined(ERP)}
    Showmessage('ERP ve Win32 Projesidir');
  {$else}
    Showmessage('Standart ve Win32 Projesidir');
  {$ifend}
end;
{$else}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  {$if defined(ERP)}
    Showmessage('ERP ve Win64 Projesidir');
  {$else}
    Showmessage('Standart ve Win64 Projesidir');
  {$ifend}
end;
{$endif}

(24-08-2023, Saat: 22:17)mrmarman Adlı Kullanıcıdan Alıntı: [ -> ]Mesajımı okumamış ön yargılı yazmışsınız. Sizi üzdüysem kusura bakmayın.

Sadece verdiğiniz örnekte çalışır çalışmaz demek istemedim.

Verdiğiniz örnek içerisinde conditional if/else/end ile normal if / then arasındaki olan farkını bu başlığı okuyanlar için açıklayıcı bulmadığımı ifade ettim.

Onun için vakit ayırıp daha genel bir örnek ile tamamlamayı istedim.

Bu sayede daha ileri bir düzeyde cevap yazma ihtiyacı duydunuz bu da haklı olduğumu gösteriyor sanki... Üzdüğüm için tekrar özür dilerim.