if else çokluğu

[SimaWB]

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;

[mrmarman]

Benim oyum @odemir01 dinamizmi severim... Sayı değişirse çözüm kapsayıcı çünkü... 

@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;

[Yeliz]

Harika

[SimaWB]

(18-03-2019, Saat: 19:07)mrmarman Adlı Kullanıcıdan Alıntı: Benim oyum @odemir01 dinamizmi severim... Sayı değişirse çözüm kapsayıcı çünkü... 

@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 

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 

[esistem]

buda benden olsun

Listt.Items[ItemIndex].Data[ImageName] := ifthen  (  (  ImageNo mod 2  )  = 0 ,  ImageNo + 1 ,  ImageNo - 1  )

[SimaWB]

Benim oyum @esisteme

[esistem]

benim oyumda size @SimaWB, zira beyin jimlastiği yaptırıyor