ارسال تک تک مقادیر List box به یک Procedure

[dark-man]

با سلام و خسته نباشید خدمت همه اساتید . در مورد عنوان سوالی داشتم ممنون میشم راهنمائیم کنید . من روی فرمم Listbox دارم که چند تا آیتم در این Listbox قرار داره . می خوام به ترتیب مقدار اول لیست من خونده بشه و به یک Procedure پاس داده بشه و وقتی که Procedure کارش روی مقدار اول تموم شد مقدار دوم تا آخر رو ارسال کنه . با for این کار رو کردم ولی به نتیجه نرسیدم .

برنامه ای هست که فایلهائی رو از اینترنت دانلود می کنه من لینک فایلها رو دارم وقتی به صورت دستی یک آدرس رو به procedure دانلود میدم کارش رو درست انجام میده اما وقتی با یک for مقادیر رو بهش میدم دانلود درست انجام نمیشه .

ممنون میشم کمکم کنید .

[Felony]

پروسیجر رو به یک فانکشن تبدیل کنید و نوع بازگشتی براش در نظر بگیرید ، در آخر وقتی فانکشنتون درست کارش رو انجام داد و تموم شد مقدار بازگشتی رو True کنید و حالا تو حلقه چک کنید وقتی True بود برید آیتم بعد .

[dark-man]

پروسیجر رو به یک فانکشن تبدیل کنید و نوع بازگشتی براش در نظر بگیرید ، در آخر وقتی فانکشنتون درست کارش رو انجام داد و تموم شد مقدار بازگشتی رو True کنید و حالا تو حلقه چک کنید وقتی True بود برید آیتم بعد .


ممنون از راهنمائیتون . میشه لطف کنید و یه نمونه از مطلبی که فرمودید رو در اختیارم بذارید . ممنون میشم .

[Felony]

شما کدتون رو قرار بدید تا اصلاح بشه .

[Felony]

من یه کد برای خودم نوشتم و تست کردم و درست کار کرد ، شما کدتون رو کامل قرار بدید ببینیم مشکلش چیه .


Procedure Download(UrlAdress,Path:String);
begin
with TDownloadURL.Create(Form1) do
try
URL:=UrlAdress;
FileName :=Path;
ExecuteTarget(nil) ;
finally
Free;
end;
end;

این کد رو داخل یک دکمه بنویسید :


var
Url:Array [1..5] of String;
i:Byte;
begin
Url[1]:='http://www.soccerballworld.com/images/Ball-UEFA-FINALE.jpg';
Url[2]:='http://static.howstuffworks.com/gif/nuclear-test-2.jpg';
Url[3]:='http://www.ihsa.org/initiatives/legends/files/balltour/ball-of-fame-7.jpg';
Url[4]:='http://www.ctemploymentlawblog.com/test.jpg';
Url[5]:='http://www.chiisland.com/weight_loss/images/exercise_ball/exercise_ball_blue.jpg';

for i:=1 to 5 do
Download(Url[i],'D:\'+IntToStr(i)+'.jpg');
end;