Главная » 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;