All files

Mały problem. Chcę aby program wyszukiwał wszystkie pliki z rozszerzeniem *.xyz w katalogu /abc i zapisał wszystkie nazwy wraz z rozszerzeniem do zmiennej Tstrings ... Macie jakieś pomysły??

Mamy. FindFirst + FindNext + F1. Tam nawet przykład jest, tyle że ze StringGridem. Poza tym już było chyba na forum.

Var SR:TSearchRec;
i:integer;
st:TStringList;

begin
st:=TStringList.Create;
i:=FindFirst('ścieżka dostępu'+'*.xyz', faAnyFile, SR);
While i = 0 do {a może i<>0 - nie pamiętam}
begin
TStringList.Add(SR.Name);
i:=FindNext(sr);
end;
FindClose(SR);
.......
end;

TStringList.Add(SR.Name);

To oczywiście powinno być ST.Add(SR.Name). Sorki za błąd.

http://4programmers.net/forum/viewtopic.html?id=42565