ComboBox пълнене

Здравейте, имам директория с файлове с данни и ComboBox. Как мога при стартирането на програмата да чета имената на всички файлове от директорията и да ги попълвам в ComboBox-а? Още по-добре ще е да може да се четат и всички файлове от поддиректориите, ако има такива. После при избиране от ComboBox-а на дадения файл ще се зареждат данните от него в програмата.

Нещо такова :

procedure TForm1.FormCreate(Sender: TObject);
var fSr : TSearchRec;
begin
if FindFirst('c:\Директорията Ми\*.*',faAnyFile,fSr) = 0 then
begin
repeat
ComboBox1.Items.Add(fSr.Name);
until FindNext(fSr) <> 0;
FindClose(fSr);
end;

end;

Мерси! Стана.

Много благодаря още веднъж! Ако не е много нахално от моя страна как може да се четат и всички файлове от поддиректориите, ако има такива? Как да различа кое е директория и кое е файл?

Ами това ти го оставих за домашно, неумишлено разбира се.
Разгледай функцията FindFirst. Втория параметър е Attributes : integer.
Та въпросните атрибути са : faAnyFile, faDirectory, faHidden и т.н ( не ми се рови сега ).

Май отговорих на въпроса ... или се лъжа

[линк]

чети и дишай по-леко

Много благодаря и на двамата за помощта!