...oder ne Idee wie das noch viel leichter geht
Ich würde mir eine Filterfunktion schreiben:
Delphi-Quellcode:
function FilterDirectory(const dirname:string; level:integer):boolean;
begin
result := false;
if (level = 0) and (Length(dirname) >= 2) and (dirname[1]='K') and IsDigit(dirname[2]) then
Result := True
else if (level = 1) and ...
...
end;
Und dann in deiner Procedure ShowDirectory:
Delphi-Quellcode:
if ((SearchRec.Attr and faDirectory) <> 0) and FilterDirectory(SearchRec.Name, level) then
begin
Dann musst du dir noch überlegen, wie du an den Level kommst.
Evtl. kann man das über _KnotenRoot.Level abgreifen oder man muss den Level schon der procedure ShowDirectory als Parameter mitgeben.