3 silip 1 atlama

[sr1111]

s.a
stringliste asagidakki gibi listem var bunlardan 3 silip 1 birakarak silmek istiyorum yapamadim.

elma
armut
portakal
kedi
tavsan
deniz
elma
göl

sonuc olarak asagidaki gibi kalmali listem
kedi
göl

[sabanakman]

Balık tutmayı öğrenmek için böyle fırsatları kaçırmamalısınız. Bu gibi alıştırmalar üzerinde kafa yormanız kişisel olarak bu alanda gelişmenize çok faydası olacaktır. Örneği inceleyebilirsiniz ama başka bir yolla problemi tekrar ele alıp çözmenizi tavsiye ederim.

Kod: Tümünü seç

var i,n:Integer;
begin
  i:=0; n:=1;
  while i<ListBox1.Items.Count do begin
    if n mod 4 = 0 then Inc(i)
    else ListBox1.Items.Delete(i);
    Inc(n);
  end;

[sr1111]

tesekkur ederim çok işime yaradi.