TOpenFileDialog имеет проблемы при выборе нескольких файлов - PullRequest
Новая
       51

TOpenFileDialog имеет проблемы при выборе нескольких файлов

0 голосов
/ 15 марта 2019

Я использую Delphi 5. При использовании TOpenFileDialog для выбора 2365 файлов в Windows 7 свойство Files является неправильным. Ниже приведен код: 

    procedure TForm1.Button1Click(Sender: TObject);
    var
      I: Integer;
    begin
      OpenDialog.Options := OpenDialog.Options + [ofAllowMultiSelect];
      if OpenDialog.Execute then
      begin
        with OpenDialog.Files do
          for I := 0 to Count - 1 do
            Memo1.Lines.Add(Strings[I]);
      end;
    end;

Хотя я выбираю 2365 файлов, Count равен 1, а Strings [0] является недопустимым символом.

Я пытаюсь проверить тот же код под Delphi XE3, тогда все в порядке.

Поэтому я считаю, что это ошибка в Delphi 5. Однако, поскольку мой проект разработан с использованием Delphi 5, перенос кода из Delphi 5 в XE3 занимает много времени именно из-за этой ошибки. Поэтому мне просто интересно, есть ли обходной путь для этой ошибки в Delphi 5, чтобы я мог ее решить, не меняя все коды на Delphi XE3.

...