Thema: Delphi FindFirst Problem

Einzelnen Beitrag anzeigen

MrMyagi

Registriert seit: 2. Mai 2007
203 Beiträge
 
Delphi 7 Personal
 
#3

Re: FindFirst Problem

  Alt 28. Feb 2008, 19:02
Also...
Ich schreibe gerade ein Fotoverwaltungsprogramm.
Da es eine Art Bildvorschau beinhalten soll, soll das
Programm aus einem Stammordner mit der Funktion:

Delphi-Quellcode:
//Fotoalbensuche begin
  if FindFirst('E:\Fotos\*-Fotos', faAnyFile, searchResult) = 0 then
  begin
    repeat
      MemoFotoalben.Lines.Add(searchResult.Name);
    until FindNext(searchResult) <> 0;

       FindClose(searchResult);
  end;
//Fotoalbensuche end
Die jeweiligen Fotoalben-Unterordner herausfinden.
Dieses klappt soweit auch noch alles.
Jedoch möchte ich jetzt in der gleichen Funktion,
dass das Programm die nun herausgefundenen Unterordnernamen
verwendet und in dieses nach der ersten Bilddatei sucht und diese in ein Image wiedergibt.


Hoffe Du verstehst, wie ich das Programm gestalten möchte


mfG, Nico
  Mit Zitat antworten Zitat