18-03-2019, Saat: 18:57
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
if else çokluğu
|
18-03-2019, Saat: 18:57
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
18-03-2019, Saat: 19:07
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;
Saygılarımla
Muharrem ARMAN
19-03-2019, Saat: 12:09
Harika
(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ü... 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
There's no place like 127.0.0.1
buda benden olsun
Listt.Items[ItemIndex].Data[ImageName] := ifthen ( ( ImageNo mod 2 ) = 0 , ImageNo + 1 , ImageNo - 1 )
19-03-2019, Saat: 14:27
benim oyumda size @SimaWB, zira beyin jimlastiği yaptırıyor
|
« Önceki Konu | Sonraki Konu »
|