VirtualStringTree - Nodes hinzufügen

[Popov]

Reduzieren wir alles auf das Nötigste. Führe mal den Code aus und gibt das Ergebnis aus der Zwischenablage hier zurück:

Delphi-Quellcode:

uses
  DateUtils, Clipbrd;

procedure Test(SearchPath: String; var Sum: Integer);
var
  SearchRec: TSearchRec;
begin
  SearchPath := IncludeTrailingPathDelimiter(SearchPath);

  if FindFirst(SearchPath + '*.*', faAnyFile or faDirectory, SearchRec) = 0 then
  try
    repeat
      Inc(Sum);
    until FindNext(SearchRec) <> 0;
  finally FindClose(SearchRec) end;

  if FindFirst(SearchPath + '*.*', faDirectory, SearchRec) = 0 then
  try
    repeat
      if ((SearchRec.Attr and faDirectory) = faDirectory) and
        (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        Test(SearchPath + SearchRec.Name, Sum);
    until FindNext(SearchRec) <> 0;
  finally FindClose(SearchRec) end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  T1, T2: TTime;
  A: Integer;
  s: String;
begin
  T1 := Now;
  A := 0;
  Test('c:\windows\', A);
  T2 := Now;

  s := Format('Anzahl Daten: %d; Zeit im Millisekunden: %d', [A, MilliSecondsBetween(T1, T2)]);
  ShowMessage(s);
  Clipboard.AsText := s; //kopiert Ergebnis in Zwischenablage
end;