Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  AW: TTreeView Frage

    Delphi
    by shmia, 29. Nov 2010
  1.) das ShowMessage('FEHLER') gehört da nicht hin; einfach weglassen
  Schliesslich gibt es die beiden Verzeichnisse "." und ".." und die sollen ausgefiltert werden.
  2.) deine Funktion IsNumeric() hat den falschen Namen und passt auch Inhaltlich nicht.
  Digit (deutsch: Ziffer) ist das was wir prüfen wollen.
  function CharIsDigit(const C: Char): Boolean;
  begin
  Result := (C >= '0') and (C...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  AW: TTreeView Frage

    Delphi
    by shmia, 29. Nov 2010
  Ich würde mir eine Filterfunktion schreiben:
  function FilterDirectory(const dirname:string; level:integer):boolean;
  begin
  result := false;
  if (level = 0) and (Length(dirname) >= 2) and (dirname='K') and IsDigit(dirname) then
  Result := True
  else if (level = 1) and ...
  ...
  end;
  Und dann in deiner Procedure ShowDirectory: