کار با اوپن دایلاگ

[یعقوب]

سلام خدمت تمامی دوستان باصفا
می خوام توسط شیء OpenDialog1 یک سری فایلها رو توی یک لیست مثلاً شیء ListBox1 قرار بدم بطوری که بعداً بشه تک تک اون فایلها رو فراخوانی کرد. لطفاً من رو راهنمایی کنید.
خواهش می کنم به خاطر ناشی بودن ما کامل توضیح بدین :oops:
متشکرم

[kimia1]

سلام
ابتدا یه شی OpenDialog و یک ListBox و یک Button روی فرم قرار میدی.
خاصیت ofAllowMultiSelect را برابر True قرار میدی
توی خاصیت OnClick مربوط به دکمه روال زیر را مینویسی

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if opendialog1.Execute then
begin
with OpenDialog1.Files do
for I := 0 to Count - 1 do
listbox1.Items.Add( Strings[I]);
end;
end;
می بینی که تمام فایلهای انتخابی با مسیرشون توی ListBox هستند...فکر کنم بتونی از ListBox استفاده کنی.. :wink:

[vcldeveloper]

TOpenDialog.Files و TListBox.Items هر دو از نوع Strings هستند فکر کنم با روش ساده تر زیر هم کارتون راه بیفته!



if OpenDialog1.Execute then
ListBox1.Items := OpenDialog1.Files;

[kimia1]

فرمایش صحیح... :wink: