Hallo,
es sollte genügen, die Vergleichsroutine anzupassen. Falls die IDs nur ganzzahlige Werte enthalten, geht es so:
Delphi-Quellcode:
procedure TMain_Form.VST_DBCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
Data1, Data2: PTreeData;
begin
Data1 := Sender.GetNodeData(Node1);
Data2 := Sender.GetNodeData(Node2);
// Result := CompareText(Data1.ID, Data2.ID);
Result := StrToInt(Data1.ID) - StrToInt(Data2.ID);
end;
Vielleicht solltest du noch eine Fehlerbehandlung vorsehen.
Gruß Hawkeye