Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Postojanje fajlova u folderu

[es] :: Pascal / Delphi / Kylix :: Postojanje fajlova u folderu

[ Pregleda: 963 | Odgovora: 1 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sapet
Sasa Petrovic
Novi Beograd

Član broj: 25598
Poruke: 50
*.ptt.yu.

Sajt: www.sapet.bravehost.com


Profil

icon Postojanje fajlova u folderu06.04.2005. u 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.
:))
06.04.2005. u 16:12 

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949


Profil

icon Re: Postojanje fajlova u folderu06.04.2005. u 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;

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.
06.04.2005. u 17:04 

[es] :: Pascal / Delphi / Kylix :: Postojanje fajlova u folderu

[ Pregleda: 963 | Odgovora: 1 ]

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.