Walk a directory/Recursively: Difference between revisions

Content added Content deleted

Inline

@@ Line 764: / Line 764: @@
     dirEntries("", "*.d", SpanMode.breadth).writeln;
 }</lang>
+=={{header|Delphi}}==
+{{libheader| System.IOUtils}}
+<lang Delphi>
+program Walk_a_directory;
+{$APPTYPE CONSOLE}
+{$R *.res}
+uses
+  System.IOUtils;
+var
+  Files: TArray<string>;
+  FileName, Directory: string;
+begin
+  Directory := TDirectory.GetCurrentDirectory;  // dir = '.', work to
+  Files := TDirectory.GetFiles(Directory, '*.*', TSearchOption.soAllDirectories);
+  for FileName in Files do
+  begin
+    Writeln(FileName);
+  end;
+  Readln;
+end.
+</lang>
 =={{header|E}}==
 <lang e>def walkTree(directory, pattern) {