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

Pretrazivanje direktorijuma i unos imena fajlova u string promenljive

[es] :: Pascal / Delphi / Kylix :: Pretrazivanje direktorijuma i unos imena fajlova u string promenljive

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

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

yokid

Član broj: 38351
Poruke: 36
*.dialup.neobee.net.



Profil

icon Pretrazivanje direktorijuma i unos imena fajlova u string promenljive07.10.2005. u 21:39 - pre 211 meseci
Dakle zadatak:

U datom direktorijumu u kome se nalaze *.jpg fajlovi, sve fajlove odnosno njihove nazive upisati u promenljive (string).
Primer ako se u direktorijumu nalaze sledeci fajlovi:

pas.jpg
macka.jpg
pacov.jpg

Kako da te nazive upisem u string1, string2 i string3 ali naravno nazive ne znamo pa program mora da pretrazi direktorijum.
 
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: Pretrazivanje direktorijuma i unos imena fajlova u string promenljive07.10.2005. u 22:14 - pre 211 meseci
Imas FindFirst i FindNext funkcije koje nalaze fajlove. Lako se koriste.
Code:
var
  sr: TSearchRec;

begin
  if FindFirst('C:\Folder\*.jpg', 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 :: Pretrazivanje direktorijuma i unos imena fajlova u string promenljive

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

Postavi temu Odgovori

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