Listboxtaki Rakamlar

[Laz61]

Arkadaslar merhaba

Ben Listbox'a girilmis olan 1...100'e kadar sayilari, sirasiyla ardarda, timer araciligiyla edit1'e yazdirmak istiyorum. Yani listboxtaki 1'de 100'e kadar sayilari sirasiyla edit kutusuna timer yoluyla yazdirmak istiyorum.

Yardimci olursaniz sevinirim.

Hosca kalin

[fiko19]

yatarken foruma bakıyım dedim sizin için bir kod oluşturdum fakat çok üzerinde duramadım bu kod üzerinden giderek istediğinizi yapabilirsiniz... kod çalısıyor

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
var i,y : integer;
begin

i:= 1;

   listbox1.ItemIndex := i ;
   edit1.Text := listbox1.Items.Text  ;

i := i + 1 ;

   y:= listbox1.Count + 1 ;

       if i = y then
       begin
          timer1.Enabled := false;
       end;
end;

[Laz61]

Arkadaslar Merhaba

Ilginiz icin tsk...

Meramim yanlis anlasildi. Ben listboxtaki rakamlari timer vasitasiyla teker teker edit kutusuna yazmak istiyordum. Tüm rakamlari editteki bir satira degil.
Kod bana bir fikir verdi. Umarim basaririm.

Hosca kalin

[Laz61]

Arkadaslar Merhaba

Maksadimi su sekilde cözdüm.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ListBox1.ItemIndex := ListBox1.Itemindex + 1;
Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
end.