String veya Showmessage içinde if kullanımı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:

String veya Showmessage içinde if kullanımı

Mesaj gönderen Lost Soul »

S.A. arkadaşlar.
ö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')
Örnek 2:

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' );
veya

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';
şeklinde bir kullanım var mı acaba :)

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')));
sorarken çözümü de yazdım ama :P delphinin kendi fonksiyonu varsa daha güzel olur
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:

Re: String veya Showmessage içinde if kullanımı

Mesaj gönderen Lost Soul »

hazır çözümü de yazmışken tam yazayım bari :)

Kod: Tümünü seç

Function SelectIf    (bCondition:Boolean;bTrueIf,bElseIf : Variant):Variant;
Begin
  if bCondition then
  Result:=bTrueif else Result:=bElseIf;
End;

Function SelectIfStr (bCondition:Boolean;bTrueIf,bElseIf : Variant):String;
Begin
  Result:=VarToStr(SelectIf(bCondition,bTrueIf,bElseIf));
End;
bu arada sorum hala geçerli :)
Ertugrul
Üye
Mesajlar: 136
Kayıt: 09 May 2009 12:05

Re: String veya Showmessage içinde if kullanımı

Mesaj gönderen Ertugrul »

Onun asil ismi ternary operator, object pascal'da IfThen fonksiyonuyla kurtarmaya calismislar.

Kod: Tümünü seç

ShowMessage(IfThen(iBool,'I pozitif','I negatif'));
uses'a strutils ya da sysutils i eklemek gerekebilir. Ayni sekilde sayisal islemler icin de IfThen'i override eden fonksiyonlar math unitinde diye hatirliyorum.
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:

Re: String veya Showmessage içinde if kullanımı

Mesaj gönderen Lost Soul »

Tabi canım borlandcı amcalar düşünmüşlerdir elbet :)
Cevap için teşekkürler.
Cevapla