Главная » Delphi » Основная » FindNodeByText

FindNodeByText

21:57
function FindNodeByText(RootNode: TTreenode; Text: String): TTreenode;
begin
   Result := RootNode;
   while Result<>nil do begin
      If AnsiCompareText(Text, Result.Text)=0 then Break;
      Result:= Result.GetNext;
   end;
end;