önce klasik kullanımımıza örnek vereyim
Örnek 1;
Kod: Tümünü seç
if i<0 then Showmessage('i negatif') else Showmessage('i pozitif')
Kod: Tümünü seç
s:='falan';
s:=s+'filan';
s:=s+'Seçili sayı 1,3,6,7';
if i in [1,3,6,7] then s:=s+'değerleri içinde var' else s:=s+'değerleri içinde yok';
sqldeki gibi şöyle bir kontrol delphi de mümkün mü acaba
Kod: Tümünü seç
Showmessage('Bu sayı' + if i<0 then 'Negatif' else 'Pozitif' );
Kod: Tümünü seç
s:='falan';
s:=s+'filan';
s:=s+'Seçili sayı 1,3,6,7'+if i in [1,3,6,7] then 'değerleri içinde var' else 'değerleri içinde yok';
yoksa şöyle bir fonksiyon yazmak durumdunda kalacağım
Kod: Tümünü seç
Function DegerSec(Sart : boolean;ifTrue,ifFalse:Variant):Variant
Showmessage('Bu sayı+VarToStr(DegerSec(i<0,'Negatif','Pozitif')));