Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Inhalt eines Ordners auslesen

    Delphi
    by dominikkv, 23. Okt 2007
  ok :stupid:
  und ich hab beim durchgehen gesehen das man da noch was vereinfachen kann :cyclops:
  
  procedure GetFileList(Path: String; ZielListe: TStringList);
  var
  SR: TSearchRec;
  begin
  if Path <> '\' then // erstmal schauen wir ob der übergebene pfad
  Path := Path + '\'; // mit einem \ aufhört, zB C:\Test\
  if FindFirst(Path + '*.jpg', faAnyFile, SR) = 0 then...
• Forum: Sonstige Fragen zu Delphi

  Re: Inhalt eines Ordners auslesen

    Delphi
    by dominikkv, 23. Okt 2007
  procedure GetFileList(Path: String; ZielListe: TStringList);
  var
  SR: TSearchRec;
  begin
  if Path <> '\' then
  Path := Path + '\';
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
  repeat
  if (Lowercase(ExtractFileExt(Path + sr.Name)) = '.jpg') then
  ZielListe.Add(Path + sr.Name);