[VirtualStringTree] Sortierung Frage.

[Hawkeye219]

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