Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Funktion erweitern

    Delphi
    by Teekeks, 21. Jun 2010
  Ahh, Tatsache, mach es ohne das begin end;
  Also so:
  
  Dateipfad := '';
  Node := TreeView1.Selected;
  while Assigned(Node) do
  begin
  if Node.Parent<>nil then
  Dateipfad := Node.Text + '\' + Dateipfad;
  Node := Node.Parent;
• Forum: Object-Pascal / Delphi-Language

  AW: Funktion erweitern

    Delphi
    by Teekeks, 21. Jun 2010
  Ungefähr so:
  
  Dateipfad := '';
  Node := TreeView1.Selected;
  while Assigned(Node) do
  begin
  if Node.Parent<>nil then
  begin
  Dateipfad := Node.Text + '\' + Dateipfad;
  Node := Node.Parent;
• Forum: Object-Pascal / Delphi-Language

  AW: Funktion erweitern

    Delphi
    by Teekeks, 20. Jun 2010
  Ok, FindClose fehlt tatsächlich, aber nehmen wir mal an es gibt einen Ordner der keine Dateien enthält, schon benötigt man das if wieder :)
  
  Das ganze ist auch aus einem Projekt das ich schon seit gut einem Jahr nicht mehr bearbeite und nutze...
• Forum: Object-Pascal / Delphi-Language

  AW: Funktion erweitern

    Delphi
    by Teekeks, 20. Jun 2010
  vl. Hilft dir ja das hier:
  Das teil durchsucht einen Ordner -Unterordner und legt dementsprechend Nodes an...
  
  EDIT: Das war das falsche...
  Hier also das richtige...
  
  procedure TDirectorySearch.scan(path: string; tiefe:integer);
  var SR:TSearchRec;
  tmparray:array of string;
  i:integer;