Verzeichnisliste mit definierter Rekursionstiefe erstellen

[himitsu]

Ich hoff auch der Code läuft so

Ansonsten läßt es sich ja noch verbessern:

• leere Verzeichnisse (welche ohne Dateien drin) ignorieren/nicht anzeigen
• nur leere Verzeichnisse anzeigen
• Sortieren (z.B. nach Datum der Erstellung/letzen Änderung)
• nur Verzeichnisse mit bestimmten Dateien (via Maske) anzeigen
• ...
• Delphi-Quellcode:

  if (Length(ParamStr(i)) > 3) and ((ParamStr(i)[1] = '-') or (ParamStr(i)[1] = '/')) then
    if ParamStr(i)[2] in ['p', 'P'] then

  warum hab ich da Gleiches unterschiedlich behandelt?
  and (ParamStr(i)[1] in ['-', '/']) then
• na gut, dafür ist in [chars] nicht wirklich Unicode(D2009)-tauglich
• ...
• ich bin vielleicht etwas brutal und hab hier Linux- und Windowsstandard gemischt ( - und / )
• und man müßte (wenn man es mag) nichtmal eine Stringliste verwenden ... das gute, alte WriteLn gibt's ja auch noch

Nja, ich hoff etwas geholfen zu haben ... es macht sich immer etwas besser, wenn sich Programme ähnlich bediehnen lassen, wie Andere.
Find es aber schade, daß seitens Delphi die Parameterabfrage etwas umständlich ist und man selber parsen/suchen muß.