BOOL __fastcall TfrmMain::Fill_lstExtensions(TListBox *lst, String Directory) {
lst->Clear();
TSearchRec file;
BOOL AlreadyExists = FALSE;
if (FindFirst(Directory + "*.*", faAnyFile, file) == 0) {
do {
AlreadyExists = FALSE;
if (!(file.Attr & faDirectory) > 0) {
for (int i = 0; i < lst->Items->Count; i++) {
if (lst->Items->operator [](i) == ExtractFileExt(file.Name)) {
AlreadyExists = TRUE;
break;
}
}
if (!AlreadyExists) {
lst->Items->Add(ExtractFileExt(file.Name));
}
} else {
for (int i = 0; i < lst->Items->Count; i++) {
if (lst->Items->operator [](i) == ExtractFileExt(file.Name)) {
AlreadyExists = TRUE;
break;
}
}
}
} while (FindNext(file) == 0);
FindClose (&file);
}
return TRUE;
}