wmaraci reklam
lidertakipci

Benimki daha kısa! (Forum içi yarışma)

15 Mesajlar 7.340 Okunma
advertseo
wmaraci reklam

multimesut multimesut WM Aracı Kullanıcı
  • Üyelik 26.05.2017
  • Yaş/Cinsiyet 36 / E
  • Meslek Yazılımcı
  • Konum Ankara
  • Ad Soyad M** A**
  • Mesajlar 1
  • Beğeniler 0 / 0
  • Ticaret 0, (%0)
Delphi ile tek satır kodda toplayalım. Giriş, gelişme, sonuç


for i:=strtoinT(edit1.text) to strtoint(edit2.text) do if ISPrime(i) then listbox1.Items.add(inttostr(i));


Yoksa Function :)


function ISPrime(Value:Integer):Boolean;
var
i,j:integer;
begin
i:=0;
for j:=1 to Value do if (Value mod j=0) then i:=i+1;
if i=2 then result:=True;
end;
 

 

wmaraci
reklam

KartPazar KartPazar Üyeliği Durdurulmuş Banlı Kullanıcı
  • Üyelik 03.05.2013
  • Yaş/Cinsiyet 33 / E
  • Meslek Ön Ödemeli Kart Satışı
  • Konum KKTC
  • Ad Soyad B** U**
  • Mesajlar 1135
  • Beğeniler 160 / 373
  • Ticaret 16, (%100)
2 ay önce açtığım, kimse takmadı diye üzüldüğüm konum ilgi görmüş. Çok mutlu oldum :)
beyuzman

kişi bu mesajı beğendi.

Mustafac Mustafac tarcinmedya.com Kullanıcı
  • Üyelik 22.11.2015
  • Yaş/Cinsiyet 27 / E
  • Meslek Öğrenci
  • Konum İstanbul Avrupa
  • Ad Soyad M** Ç**
  • Mesajlar 581
  • Beğeniler 186 / 191
  • Ticaret 12, (%100)
başlık yüzünden girmiyorum :p şaka yaptım bilgim olsa yazardım
 

 

www.tarcinmedya.com - Profesyonel Web Tasarım, Grafik Tasarım ve Sosyal Medya Pazarlama

opencartim opencartim Bir Umuttur Yaşamak! Kullanıcı
  • Üyelik 13.09.2015
  • Yaş/Cinsiyet 29 / E
  • Meslek E-Sporcu!
  • Konum İstanbul Avrupa
  • Ad Soyad A** Ç**
  • Mesajlar 1177
  • Beğeniler 359 / 372
  • Ticaret 26, (%100)
Hocam senin paylaştığın alt alta çok uzun hep hepsini tek bi satıra sığdırdım, kod bilgimiz yok ama böylede olur herlade ? :)

n1=int(input('First number: ')) n2=int(input('Second number: ')) for n in range(n1,n2): i=2 while i
 

 

wmaraci
wmaraci

Decimas Decimas WM Aracı Kullanıcı
  • Üyelik 19.04.2015
  • Yaş/Cinsiyet 26 / E
  • Meslek Developer
  • Konum İstanbul Avrupa
  • Ad Soyad E** E**
  • Mesajlar 821
  • Beğeniler 1 / 302
  • Ticaret 1, (%100)
Ben de ara ara buraya yazacağım, güzel fikir :) Konsepte uyar mı bilmem ama kısalıktan çok iç içelik beni daha çok çekiyor, C# ile yaptığım bir çalışmada listedeki seçilen içeriği panoya kopyalamam gerekti;

Uzunu böyle,


private void KodlarListesi_SeçimDeğiştiğinde(object sender, SelectionChangedEventArgs e)
{
var BuListe = sender as ListView;
var SeçilenKodlar = BuListe.SelectedItem as Kodlar;
if (SeçilenKodlar != null)
{
Clipboard.SetText(SeçilenKodlar.Kod.ToString());
}
}



Kısası da böyle,


private void KodlarListesi_SeçimDeğiştiğinde(object sender, SelectionChangedEventArgs e)
{
if ((sender as ListView).SelectedItem as Kodlar != null) Clipboard.SetText(((sender as ListView).SelectedItem as Kodlar).Kod.ToString());
}
 

 

no time for caution
wmaraci
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)