ایجاد فاصله ی زمانی در یک چرخه

[yaas135]

من با استفاده از بروزر دلفی میخوام، مثلا ده تا ادرس رو که آدرس هاشون رو توی یک فایل تکست ذخیره کردم، به فاصله 1 دقیقه توی یک بروزر مشترک باز کنم.
ادرس ها رو می ریزم توی یک لیست باکس به ترتیب بدمشون به بروزر که نشونم بده، اما نمیدونم چطوری باید بگم که توی چرخه هر بار اجرا رو 1 دقیقه فاصله بندازه.
ممنونم

[s.mostafa.rahmani]

خوب از تايمر استفاده كن

[Felony]

بهترین راه استفاده از تایمر هست ولی میتونید از متد Sleep هم در یک حلقه استفاده کنید که کار زیاد جالبی نیست

[yaas135]

راه ِ دیگه ای سراغ ندارید؟

[yaas135]

while index < listbox1.Count do
begin
Timer1.Enabled := false;
ListBox1.ItemIndex := i;
RefreshSite.Navigate(ListBox1.Items.Strings[ListBox1.ItemIndex]);
Index := index+1;
I:=i+1;
Timer1.Enabled := true;
End;

من دارم از تایمر استفاده می کنم. اما موضوع اینجاست که فقط اخرین یو ار ال رو نمایش میده، مگر این که بعد از ادرس دهی به بروزر یه شو مسیج بذارم!

[Amir_Safideh]

شما از یه ساختار حلقه استفاده کردید خوب باید هم جواب نگیرید چون تایمر دستور حلقه رو در هر دوره Interval تا پایان اجرا میکنه . شما باید خاصیت Interval مربوط به تایمر رو برابر با 60000 قرار بدید که در هر دقیقه یکبار بشه و کدتون رو به این صورت اجرا تغییر بدید .

RefreshSite.Navigate(ListBox1.Items.Strings[Index]);
if Index = ListBox1.Count then
Timer1.Enabled := False
else
Inc(Index);

-------------
موفق باشید .

[yaas135]

تذکرتون درست بود
خیلی ممنونم