Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
8. Mär 2009
noch länger, aber dafür wohl noch schneller ...
Function GetNodePath(Node: TTreeNode; WithTailingDelimiter: Boolean): String;
Var L: Integer;
Temp: TTreeNode;
P: PChar;
Begin
If Assigned(Node) Then Begin
L := 0;
Temp := Node;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
8. Mär 2009
Schlanker mag es aussehn, aber dafür sind dort mehrere Prozeduraufrufe und Rückprünge drin und es wird ein klein bissl mehr Speicher benötigt.
function GetNodePath(aNode:TTreeNode; WithTailingDelimiter: Boolean): String;
begin
Result := '';
while Assigned(aNode) do begin
Result := aNode.Text + '\' + Result;
aNode := aNode.Parent;
end;
if not WithDelimiter then...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
8. Mär 2009
hab erstmal nur kurz reingeblickt: (Änderungen mit <<< markiert)
function GetNodePath(aNode:TTreeNode; WithDelimiter: Boolean): String;
begin
if Assigned(aNode) then begin
if WithDelimiter then Result := aNode.Text +'\'
else Result := aNode.Text;
aNode := aNode.Parent;
while assigned(aNode) do begin
Result := aNode.text + '\' + Result;
aNode :=...