Ordentlicher Dateibaum

[R56]

Ich möchte einen Dateibaum als Textdatei schreiben, ähnlich wie der von DOS/CMD. (tree /f Path)
Jedoch komme ich nicht weiter, als das pure nacheinander Stapeln der Verzeichnisse und Dateien:

Code:

Verzeichniss

Datei
Datei

UnterVerzeichnis

Datei
Datei

etc.

Was ich machen möchte:

Verzeichnis
├─UnterVerzeichnis
│ └───Datei
└───Datei

Danke, für die, die mir helfen würden.

[Popov]

Code:

1:Verzeichnis
1:Datei
1:Datei
2:UnterVerzeichnis
2:Datei
2:Datei
3:UnterDingens
3:Datei
1:Verzeichnis2

Edit:

Guck dir mal den Aufbau von *.cnt Dateien die an einigen *.hlp Dateien dabei sind. Sie speichern ihren Baum in einer ähnlichen Form. Die Zahl gibt die Tiefe an, der Rest ist ein wenig programmieren.

[R56]

Okay das beduetet ich sollte das Dingen jetzt in ein zweidimensionales Array abspeichern und nacheinander aufrufen? (Zuerst alles von 2, dann 3, dann 4... etc. letzlich 1)
Und wie würde ich das mit den Strichen hinbekommen?

Bei mir sieht es momentan so aus:

Delphi-Quellcode:

//Liste
  if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) = 0 then try
    repeat
      if not ShowExt then
        SR.Name := ChangeFileExt(SR.Name, '');
      if ShowDir then
        begin
      //Hier versch. Schreibweisen hin!
      List.Add(Directory + SR.Name);
        end
      else
        begin
      //Hier versch. Schreibweisen hin!
          List.Add(SR.Name);
        end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;

  if WithSubDirs then begin
    if FindFirst(Directory + '*.*', faAnyFile, SR) = 0 then try
      repeat
        if ((SR.attr and faDirectory) = faDirectory) and
           (SR.Name <> '.') and (SR.Name <> '..') then
          ScanDir(Directory + SR.Name + '\');
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  end;
end;

begin
  List.BeginUpdate;
  try
    if ClearList then
      List.Clear;
    if Directory = '' then Exit;
    if Directory[Length(Directory)] <> '\' then
      Directory := Directory + '\';
    ScanDir(Directory);
  finally
    List.EndUpdate;
  end;
end;

[jaenicke]

Du rufst ScanDir ja rekursiv auf. Nun brauchst du der Methode doch nur noch einen zusätzlichen Parameter mitgeben, der die Verzeichnistiefe angibt bzw. gleich den voranzustellenden Text. So ca.:

Delphi-Quellcode:

procedure ScanDir(const APrefix, APath: string);
begin
  ...
  List.Add(APrefix + SR.Name);
  ...
  ScanDir(APrefix + '  ', Directory + SR.Name + '\');

Theoretisch könntest du aus dem Verzeichnis auch direkt die Verzeichnistiefe jedes Mal ermitteln, aber das ist unnötig viel Aufwand.

[R56]

Würde das dann nicht nur so aussehen?

Verzeichnis
├Datei
├Datei
UnterVerzeichnis
├Datei
├Datei

[busybyte]

Du musst zumindest noch Index und Level hinzufügen.
Besser du nimmmst gleich eine Art Treenode um die entsprechenden Childs und Parents zu verwalten, dann kannst du auch gleich den Data-Pointer mitverwenden um
eventuelle Eigenschaften mitzuziehen.

[jaenicke]

Zitat von R56:

Würde das dann nicht nur so aussehen?

Naja, wie du es halt programmierst... Das war ja nur ein Beispiel...