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

Postojanje fajlova u folderu

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

[ Pregleda: 3329 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sapet
Novi Beograd
sluzbenik
Srbija

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

Sajt: sasapetrovic.bravesites.c..


+2 Profil

icon Postojanje fajlova u folderu06.04.2005. u 16:12 - pre 231 meseci
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.
:))
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Postojanje fajlova u folderu06.04.2005. u 17:04 - pre 231 meseci
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;

 
Odgovor na temu

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

[ Pregleda: 3329 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

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