Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by omata,
24. Dez 2008
Nichts anderes macht getNextSibling, siehe dazu auch GetFirstChild.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by omata,
24. Dez 2008
ja? Meine Tests ergaben genau das selbe Verhalten. Wo ist denn dort ein Unterschied in der Funktionalität?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by omata,
24. Dez 2008
Warum exit und dann auch noch zweimal?
function TForm.TreeNodeSearch(aNode: TTreeNode; SearchItem: string): TTreeNode;
begin
Result := nil;
if (aNode.hasChildren) and (SearchItem <> '') then begin
aNode:=aNode.GetFirstChild;
while assigned(aNode) and not assigned(Result) do begin
if SearchItem = aNode.Text then