Unterordner in Array speichern

[DeddyH]

Lass das Array mal weg und nimm stattdessen TStrings. Dann ginge das ungefähr so (aus dem Kopf getippt, daher ungetestet):

Delphi-Quellcode:

procedure GetDirectories(DirName: string; const sl: TStrings);
var Rec: TSearchRec;
begin
  sl.Clear;
  DirName := IncludeTrailingPathDelimiter(DirName);
  if FindFirst(DirName + '*.*', faDirectory, Rec) = 0 then
    try
      repeat
        if (Rec.Name <> '.') and (Rec.Name <> '..') and ((Rec.Attr and faDirectory) = faDirectory) then
          sl.Add(Rec.Name);
      until FindNext(Rec) <> 0;
    finally
      SysUtils.FindClose(Rec);
    end;
end;

[delphi-n]

also ich hab jetzt das von oben eingegeben, aber bei


sl.Clear;


kommt der Fehler

"Zugriffsverletzung bei Adresse 00454C9A in Modul 'Projektname.exe'. Lesen von Adresse 00000000"


Woran kann das liegen?

[himitsu]

spontan geraten (und das wurde auch hier überall im Forum schon oft gesagt)

du muß die nötige StringList (TStrings/TStringList) vorher auch SELBER erstellen!

[delphi-n]

das hab ich oben in der var stehen:

Delphi-Quellcode:

OL: Tstrings;

und unten dann:

Delphi-Quellcode:

GetDirectories(Edit1.Text, OL);

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[mkinzler]

Und zwar mit

Delphi-Quellcode:

  OL := TStringList.Create;

[delphi-n]

da kommt "listenindex überschreitet das max...bla"
mich wundert aber, dass ich gar kein max eingegeben habe??

sry, wenn das vlt. etwas doof klingt, aber wie erstellt man das "maximum"?

[DeddyH]

Du kannst das Maximum nicht "erstellen", das richtet sich nach der Anzahl der Einträge. Vermutlich hast Du eine For-Schleife, in der Du bis Liste.Count statt Liste.Count - 1 durchläufst.

[delphi-n]

nein, mein fehler liegt woanders:

der soll wie gesagt die ordner finden. Nun hab ich dem ein Verz. ohne Ordner gegeben. :wall:

Da muss nat. voher ne abfrage rein, oder mit try und except.

[himitsu]

Zitat:

Zitat von mkinzler

Und zwar mit

Delphi-Quellcode:

  OL := TStringList.Create;

und nicht vergessen diese nachher mit OL.Free; wieder freizugeben ... also alles so wie man es von einer objektorientierten Programmierung her kennt :)

[DeddyH]

Zitat:

Zitat von delphi-n

nein, mein fehler liegt woanders:

der soll wie gesagt die ordner finden. Nun hab ich dem ein Verz. ohne Ordner gegeben. :wall:

Da muss nat. voher ne abfrage rein, oder mit try und except.

Du kannst doch vor dem Aufruf der Prozedur gar nicht wissen, ob Ordner enthalten sind. Eine Überprüfung kann also nur im Anschluss erfolgen.