Заполните 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;