Помогите, пожалуйста, этот код для 2010 перевести, чтобы с юникодом работал:
| Код |
procedure TFrm1.VTIncrementalSearch(
Sender: TBaseVirtualTree; Node: PVirtualNode;
const SearchText: String; var Result: Integer);
var
Data : PData;
begin
Result := 0;
Data := VT.GetNodeData(Node);
if Assigned(Data) then
begin
if IsIntNumber(SearchText) then
Result := AnsiStrLIComp(PChar(SearchText),
PAnsiChar(AnsiString(Data^.ID)),
Min(Length(SearchText), Length(Data^.ID)))
else
Result := AnsiStrLIComp(PChar(SearchText),
PChar(Data^.R_NAME),
Min(Length(SearchText), Length(Data^.R_NAME)));
end;
end;
|
|