TTreeView Frage

[shmia]

Zitat von Ascuriah:

...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.