TTreeView komige Speedprobleme...

[DelTurbo]

Nein, es sind alles mind. level 1 einträge, bis auf einen. Der TTreeView wird auf einmal gefüllt. Ich lese die daten in einen TStringList ein (die dauer ist abgezogen) und fülle dann den TTreeView so wie in dem link beschrieben.

Ich habe nun auchmal versucht mit dem ProcessExplorer zu sehen warum das so ist. Aber es wird mir nur die .exe angezeigt die last macht.

Im moment bin ich kurz davor mein System neu zu machen. Weil es kann ja nicht an der "Füllart" liegen. Wenn das der fall wäre, dann wäre es überall langsam bzw. gleich schnell.

Das ist halt die sache die ich nicht verstehe. Warum ist es nur auf diesem System so langsam?

EDIT: Ich habe es grade auf einem anderen Laptop getestet. Da ist eine Uralte installation drauf. Das teil hat eine 1,5Ghz CPU und ist schneller als hier das System mit einem i5-760. Irgendwie verwirrt mich das alles.

[Bjoerk]

Probier' mal so, vielleicht bringt's ja was.

Delphi-Quellcode:

procedure GetNodeDirs(const ADirectory: String; const Tree: TTreeView; const Start: TTreeNode);

  function SlashSep(const Path, S: String): String;
  begin
    if AnsiLastChar(Path)^ <> '\' then
      Result:= Path+'\'+S
    else
      Result:= Path+S;
  end;

var
  SearchRec: TSearchRec;
  NewNode: TTreeNode;

begin
  if FindFirst(SlashSep(ADirectory, '*.*'), faDirectory, SearchRec) = 0 then
  try
    repeat
      if ((SearchRec.Attr and faDirectory) <> 0) then
        if ((SearchRec.Name <> '.') and (SearchRec.Name <> '..')) then
        begin
          NewNode:= Tree.Items.AddChild(Start, SearchRec.Name);
          GetNodeDirs(SlashSep(ADirectory, SearchRec.Name), Tree, NewNode);
        end;
    until FindNext(SearchRec) <> 0;
  finally
    Findclose(SearchRec);
  end;
end;


TreeView1.Items.BeginUpDate;  
TreeView1.Items.Clear;
GetNodeDirs('C:\', TreeView1, TreeView1.Items.AddChild(Nil, 'C:\'));
// TreeView1.AlphaSort;
TreeView1.Items.EndUpDate;

[DelTurbo]

Habe ich schon hinter mir. Da bremst eh die platte. Wenn man es 2x hintereinander laufen lässt, und er die sachen aus dem cache hohlt, habe ich das gleiche problem. Das füllen der TreeView ist wesentlich langsamer als auf anderen Systemen.

Ich glaube nicht das es ein Delphi problem ist. Ich denke es liegt am Windows selber. Blos weiss ich nicht was dort im eimer ist.

Deswegen fragte ich ja, ob das schonmal jemand hatte. Hätte ja sein können. Die hoffnung stirbt bekanntlich zuletzt.

[Luckie]

Was will der Benutzer mit 55.000 Tausend Einträgen? Und das sind alles Wurzeleinträge? Da scrollt man sich ja zu Tode, wenn man da was sucht.

[DelTurbo]

Zitat von Luckie:

Was will der Benutzer mit 55.000 Tausend Einträgen? Und das sind alles Wurzeleinträge? Da scrollt man sich ja zu Tode, wenn man da was sucht.

Sorry, aber das ist doch egal. Auch wenn 1.000.000 einträge drinn wären. Fakt ist, das "mein" System mind. 4x langsamer ist und ich gerne wüsste ob das schonmal jemand hatte.

[FredlFesl]

Ich glaube, Du hast begriffen, das 50.000 Einträge auf einmal anzuzeigen ziemlich "blöd" ist.

Zitat von DelTurbo:

Fakt ist, das "mein" System mind. 4x langsamer ist und ich gerne wüsste ob das schonmal jemand hatte.

Also, das es auf einem System langsamer ist, als auf dem Anderen: Nein.
Das die TTreeView sowieso unglaublich lahm ist: JA!

[DelTurbo]

Zitat von FredlFesl:

Ich glaube, Du hast begriffen, das 50.000 Einträge auf einmal anzuzeigen ziemlich "blöd" ist.

Ja klar. Aber darum geht es ja nicht. Ich frage mich nur, was kann das sein, das es hier langsamer ist als auf anderen Systemen.

Kann es an einer "falschen" DLL liegen die mit irgendwas installiert wurde? Oder Registry einträge die im eimer sind?

Ich habe noch nie irgendwelche RegCleaner oder sowas laufen lassen müssen. Vielleicht wäre das ein versuch wert. Und wenn ja, welchen würdet ihr nehmen?