For Do Döngü Problemi - ÇÖZÜLDÜ

[akissoftware]

Arkadaşlar Merhaba.

Bir programımda Memo içerisinde 3-4 tane Abone Numarası kayıtlı. Sırasıyla bu abone numaralarına ait rapor oluşturmak istiyorum.

Kodum şöyle;

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
var
i : Integer;
begin
For i:=1 to Memo1.Lines.Count - 1 Do
Edit1.Text:=Memo1.Lines.Strings[i];
Form1.RaporOlustur;
Sleep(5000);//5sn
i:= i + 1;
end;

Benim burda istediğim örnek olarak 1. abone numarasıyla rapor almak ve 5 saniye beklemek. 5 saniye dolduktan sonra 2. sıradaki abone numarasına geçmek ve onun raporunu alıp 5 saniye tekrar beklemek.

Şimdiki kullandığım kod ile hepsini aynı anda almaya kalkışıyor ve sadece son abone numarasının raporunu görebiliyorum. Bu konuda yardımcı olabilir misiniz?

[unicorn64]

timer kullanarak yapabilirsiniz... form bazında bir değişkenle indexi takip ederek işlemi timer içinde yaparsınız, timer intervali de 5000 yaparsınız...

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
begin

  button3.enabled:=false;
  application.processmessages;
  index:=0;
  timer1.enabled:=true;

end;

procedure TForm1.timer1OnTimer(Sender: TObject);
begin
  if index=Memo1.Lines.Count then
  begin
     button3.enabled:=true;
     timer1.enabled:=false;
     exit;
  end;

  Edit1.Text:=Memo1.Lines.Strings[index];
  Form1.RaporOlustur;
  index:=index+1;
end;

[akissoftware]

Çok çok teşekkür ederim. Gerçekten tamda istediğim şekilde çalışıyor Ellerin dert görmesin