[ yokid @ 07.10.2005. 21:39 ] @
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.
[ Srki_82 @ 07.10.2005. 22:14 ] @
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;