Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
if else çokluğu
#11
case ImageNo of
  0,2,4,6,8: Listt.Items[ItemIndex].Data[ImageName] := ImageNo + 1;
  1,3,5,7,9: Listt.Items[ItemIndex].Data[ImageName] := ImageNo - 1;
end;
There's no place like 127.0.0.1
WWW
Cevapla
#12
Benim oyum @odemir01 dinamizmi severim... Sayı değişirse çözüm kapsayıcı çünkü...  Smile

@Yeliz  tarafından nihai çözüm olarak verdiği değerler gözetilerek küçük bir düzeltmeyle ...

  if ( ImageNo mod 2 ) = 0
 then // Çift Sayılar...
   Listt.Items[ItemIndex].Data[ImageName] := ImageNo + 1
 else // Tek Sayılar...
   Listt.Items[ItemIndex].Data[ImageName] := ImageNo - 1;
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#13
Harika Smile
Cevapla
#14
(18-03-2019, Saat: 19:07)mrmarman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Benim oyum @odemir01 dinamizmi severim... Sayı değişirse çözüm kapsayıcı çünkü...  Smile

@Yeliz  tarafından nihai çözüm olarak verdiği değerler gözetilerek küçük bir düzeltmeyle ...

  if ( ImageNo mod 2 ) = 0
 then // Çift Sayılar...
   Listt.Items[ItemIndex].Data[ImageName] := ImageNo + 1
 else // Tek Sayılar...
   Listt.Items[ItemIndex].Data[ImageName] := ImageNo - 1;

Dinamizm ise dinamizm... Oyunuza talibim @mrmarman  Big Grin
Listt.Items[ItemIndex].Data[ImageName] := (ImageNo+1) - (-2 * StrToInt(BoolToStr(Boolean(ImageNo mod 2))));




Not: Elimin altında Firemonkey yok. FMX desteği olmayan bir şey yazdıysam oy vermeyin @mrmarman  Tongue
There's no place like 127.0.0.1
WWW
Cevapla
#15
buda benden olsun Smile

Listt.Items[ItemIndex].Data[ImageName] := ifthen  (  (  ImageNo mod 2  )  = 0 ,  ImageNo + 1 ,  ImageNo - 1  )
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
WWW
Cevapla
#16
Benim oyum @esisteme Big Grin
There's no place like 127.0.0.1
WWW
Cevapla
#17
benim oyumda size @SimaWB, zira beyin jimlastiği yaptırıyor Smile
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
WWW
Cevapla




Konuyu Okuyanlar: 1 Ziyaretçi