فتح ثم استيراد عدة ملفات دو الامتداد (.csv) باستعمال OpenDialog

[sofiane201]

في options التابعة لTOpenDialog, يوجد خيار multiselect, حدّده حتى تتمكن من اختيار عدة ملفات, بعدها عندما تختار ستجد اسماءهم في OpenDialog.Files والتي هي من نوع TStrings, بعدها مررهم واحدا تلو الاخر الى TFDBatchMoveTextReader عبر حلقة مثل:

PHP كود :

procedure ...
var
fileName: string;
begin
  if OpenDialog.Execute then
  begin
    for fileName in OpenDialog.Files do
    begin
      DM.TextReader1.FileName:= fileName;
      //...
      //...
    end;
  end;
end; 


 اذا كنت تستعمل اصدار دلفي حديث, يمكن استخدام inline variable:

PHP كود :

  if OpenDialog.Execute then
  begin
    for var fileName in OpenDialog.Files do
    begin
      DM.TextReader1.FileName:= fileName;
      //...
      //...
    end;
  end;