Alle Filenamen

[wendelin]

Hallo,
ich habe eine wahrscheinlich für Euch einfache Frage.

mit dem kleinen Beispiel kann ich z.B. verschiedene CSV. files öffnen und lesen.
Nun habe ich innerhalb eines Verzeichnisses mehr als 100 CSV.Files.
ich möchte nun nicht File für File ( im Open- Window) offnen und lesen bzw. einlesen.
Sondern ich mochte das ganze automatisieren.

Wie kann ich die einzelnen FileNamen z,B. in einer Stringliste abspeichern oder mir in einem StringGrid anzeichen lassen ?

Wolfgang (Wendelin)

[AuronTLG]

System.IOUtils.TDirectory.GetFiles wäre die offizielle Variante.

[himitsu]

Der OpenDialog hat auch ein, in den Optionen aktivierbares, MultiSelect und dann Strg und/oder Shift, sowie Maus/Pfeiltasten,
oder man stellt den Dialog auf Verzeichnisauswahl ein und nimmt dann das ganze Verzeichnis.

Oder Edits für Verzeichnis und vieleicht noch Eines für eine Dateimaske
oder ein TEdit für Beides und dann trennen (ExtractFilePath und ExtractFileName)
und dann TDirectory.GetFiles

oder
oder
oder




Und bei einem Edit kann man dann entweder einen Button (oder direkt ein TButtonedEdit) mit dem FileOpenDialog
und/oder ein AutoComplete hinzufügen.
SHAutoComplete + SHACF_FILESYSTEM
https://learn.microsoft.com/en-us/wi...2/shell/ac-ovw

SHAutoComplete
https://blog.dummzeuch.de/2014/06/09...te-for-tedits/

[wendelin]

Hallo,
Danke an alle für Eure Antworten.

Ich denke, Ihr habt mir sehr geholfen.


Wolfgang (Wendelin)

[wendelin]

Hallo,
leider klappt es bei mir noch nicht richtig.

Wenn ich folgenden Code schreibe, siehe Example und compiliere
erhalte ich folgende Fehlermeldung : Undeclared Indentifier 'IOUtils'

Kann es sein, dass bei Delphi7 der 'System' 'IOUtils' Fehlt ?

Wolfgang (Wendelin)

[Aliquis]

Ja, so weit ich weiß gibt es System.IoUtils erst ab Delphi 2010.

[Delphi.Narium]

Delphi 7 kennt das meiste des Vorgeschlagenen nicht, daher können die Ideen mit Delphi 7 nicht umgesetzt werden.

Das von himitsu vorgeschlagene Mulitselect in OpenDialog funktioniert in Delphi 7.

Befrage die Suchmaschine Deiner Wahl mal nach rekursive Dateisuche Delphi 7. Dort solltest Du Antworten zu Deiner Fragestellung finden, die auch mit Delphi 7 funktionieren.

[Papaschlumpf73]

Das hier müsste auch unter Delphi 7 funktionieren:

Delphi-Quellcode:

procedure GetFileListEx(const Directory: string; const Files: TStrings; const FileMask: string; const SubFolders: Boolean);
var SearchRec: TSearchRec;
begin
Application.ProcessMessages;
if FindFirst(IncludeTrailingPathDelimiter(Directory)+FileMask, faAnyFile and not faDirectory and not faVolumeID and not faHidden, SearchRec) = 0 then
 try repeat Files.Add(IncludeTrailingPathDelimiter(directory)+SearchRec.Name);
     until FindNext(SearchRec) <> 0;
 finally SysUtils.FindClose(SearchRec); end;
if SubFolders then
 if FindFirst(IncludeTrailingPathDelimiter(Directory)+'*.*', faAnyFile,  SearchRec) = 0 then
  try repeat
      if (SearchRec.Attr and faDirectory) <> 0 then
       if ((SearchRec.Name <> '.') and (SearchRec.Name <> '..'))
       then GetFileListEx(IncludeTrailingPathDelimiter(Directory)+SearchRec.Name, Files, FileMask, SubFolders);
      until FindNext(SearchRec) <> 0;
  finally SysUtils.FindClose(SearchRec); end;
end;

[TBx]

Vielleicht hilft dir das hier weiter.

[TurboMagic]

Zitat:

Zitat von Papaschlumpf73 (Beitrag 1536524)

Das hier müsste auch unter Delphi 7 funktionieren:

Delphi-Quellcode:

procedure GetFileListEx(const Directory: string; const Files: TStrings; const FileMask: string; const SubFolders: Boolean);
var SearchRec: TSearchRec;
begin
Application.ProcessMessages;
if FindFirst(IncludeTrailingPathDelimiter(Directory)+FileMask, faAnyFile and not faDirectory and not faVolumeID and not faHidden, SearchRec) = 0 then
 try repeat Files.Add(IncludeTrailingPathDelimiter(directory)+SearchRec.Name);
     until FindNext(SearchRec) <> 0;
 finally SysUtils.FindClose(SearchRec); end;
if SubFolders then
 if FindFirst(IncludeTrailingPathDelimiter(Directory)+'*.*', faAnyFile,  SearchRec) = 0 then
  try repeat
      if (SearchRec.Attr and faDirectory) <> 0 then
       if ((SearchRec.Name <> '.') and (SearchRec.Name <> '..'))
       then GetFileListEx(IncludeTrailingPathDelimiter(Directory)+SearchRec.Name, Files, FileMask, SubFolders);
      until FindNext(SearchRec) <> 0;
  finally SysUtils.FindClose(SearchRec); end;
end;

Könnte funktionieren, auch wenn ich das etwas anders formatieren würde, aber das ist mehrheitlich Geschmackssache.
Was ich aber lieber weglassen würde ist das Application.ProgressMessages. Damit kann man auch Chaos anrichten,
z. B. wenn die Routine aus einem Eventhandler heraus aufgerufen wird und der nicht reetrant ist...