Imas FindFirst i FindNext funkcije koje nalaze fajlove. Lako se koriste.
Code:
var
sr: TSearchRec;
begin
if FindFirst('C:\Folder\*.txt', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory) = 0 then
begin
// Radi sta hoces s podacima u promenljivoj sr
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
DirectX na srpskom |
GLScene na srpskom
There are only 10 types of people in this world; those who understand binary and those who don't.