Procedurka ta ma wyszukiwać wszytskie pliki html w katalogu i tworzyć zakładki dla TabControl z nazwami odnalezionych plików. Albo w ogóle mi nie tworzy zakladek, albo tworzy jedną z pustym captionem :/ Jakby w ogóle też pliku nie znalazł. Co zwaliłem??
procedure TForm2.FormCreate(Sender: TObject);
var
SearchRec: TSearchRec;
begin
if FindFirst('F:\web', faAnyFile, SearchRec) <> 0 then
begin
repeat
if ExtractFileExt(SearchRec.Name)='html' then
TabControl1.Tabs.Add(ExtractFileName(SearchRec.Name));
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
P.S. kod tego przykładu znalazłem gdzieś w Helpie i zmodyfikowalem go do swoich potrzeb. Jednakże gdy próbowałem sam to też mi nic nie wychodziło :/