Forum: Object-Pascal / Delphi-Language
Delphi
by Bjoerk,
28. Aug 2011
Ich habe mal zum Vergleich eine ListBox getestet und war doch einigermaßen erstaunt, daß das TreeView (ohne Images) genaus so schnell ist wie diese. Scheint ein Aberglaube zu sein, daß TreeView stinklangsam ist. Auf jeden Fall auch viel schneller als ein Memo, aber das denke ich, ist klar.
procedure GetDirs(const Start: String; const SL: TStrings);
var
S: TSearchRec;
P: string;
R:...
Forum: Object-Pascal / Delphi-Language
Delphi
by Bjoerk,
27. Aug 2011
Probier' mal so, vielleicht bringt's ja was.
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