Заполните ListBox, используя TDirectory.GetFiles Delphi XE8

Существует ли более эффективный способ заполнения ListBox именами файлов из TDirectory.GetFiles?

procedure PopListBox(var lb: TListBox; dir, ext: String; so: TSearchOption);
var
  i: Integer;
  iend: Integer;
  oc: TStringDynArray;
begin
  oc := TDirectory.GetFiles(dir, ext, so);
  iend := Length(oc);
  i := 0;
  repeat
    lb.Items.Add(oc[i]);
    Inc(i);
  until (i > (iend - 1));
end;

Я хотел бы услышать мнение сообщества об этом подходе.

1 ответ

Решение

Это не более эффективно, но вы можете удалить пару переменных и несколько строк кода:

procedure PopListBox(var lb: TListBox; dir, ext: String; so: TSearchOption);
var
  oc: TStringDynArray;
  s: string;
begin
  oc := TDirectory.GetFiles(dir, ext, so);
  lb.Items.BeginUpdate;
  try
    for s in oc do
      lb.Items.Add(s);
  finally
    lb.Items.EndUpdate;
  end;
end;
Другие вопросы по тегам