[ sapet @ 06.04.2005. 16:12 ] @
Kako ispitati koji sve fajlovi (*.txt) postoje u folderu? Naime, ako uzmemo da u folderu LANGUAGE postoje prevodi za razlicite jezike. Samim dopisivanjem fajlova - prevodjenjem na druge jezike program bi trebao sam da ih procita.
Hvala.
:))
[ Srki_82 @ 06.04.2005. 17:04 ] @
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;