Node.GetNext !!!

[Delphiturbo]

Hallo,

in dem Tutorials-Code stimmt nicht Result:=Node.GetNext
Ich lege 2 identische Werte in Treeview und dann suche
Das Programm findet nur eines und die Markierung bleibt stehen !!!
was ist falsch in Code ?
Tutorials here

[mkinzler]

Wenn ein Eintrag gefunden wird, wird ja abgebrochen.

[Die Muhkuh]

Das Break ist falsch.

[mkinzler]

Würd ich nicht so sagen.

[Die Muhkuh]

Naja, das Break bricht ab, im Endeffekt sagtest Du das gleiche ja auch

Ich hab nur Deine Aussage mit dem Code konkretisiert.

[mkinzler]

Aber das Entfernen des breaks ist ja nicht die Lösung oder?

[Die Muhkuh]

Hab ich auch nicht gesagt, aber das Break führt zum Abbruch

[mkinzler]

Du hast gesagt, dass das break falsch ist.
Ich würde den Code in etwa so anpassen:

Delphi-Quellcode:

function GetNodeByText
(ATree : TTreeView; AValue:String; 
 AVisible: Boolean; StartNode: TNode): TTreeNode;
var
    Node: TTreeNode;
begin
  Result := nil;
  if ATree.Items.Count = 0 then Exit;
  if StartNode = Nil then Node := ATree.Items[0] else Node = StartNode;
  while Node <> nil do
  begin
    if UpperCase(Node.Text) = UpperCase(AValue) then
    begin
      Result := Node;
      if AVisible then
        Result.MakeVisible;
      Break;
    end;
    Node := Node.GetNext;
  end;
end;

[omata]

Wenn es mehrere gibt, dann kannst du aber nicht nur eins als Rückgabewert bekommen?!

Also vielleicht so...

Delphi-Quellcode:

type
  TSelectedTreeNodes = array of TTreeNode;

:
:

function GetNodeByText(ATree: TTreeView; AValue:String): TSelectedTreeNodes;
var Node: TTreeNode;
begin
  setlength(Result, 0);
  Node := ATree.Items.GetFirstNode;
  while assigned(Node) do begin
    if UpperCase(Node.Text) = UpperCase(AValue) then begin
      setlength(Result, length(Result)+1);
      Result[high(Result)] := Node;
    end;
    Node := Node.GetNext;
  end;
end;

Gruss
Thorsten

[Moyyer]

Ich würde aus der Function das Break entfernen und stattdessen

Node.Selected := True; hinschreiben.
Somit werden alle Nodes durchgegangen und bei Übereinstimmung markiert.