结构体排序(50)

PTypeIdxData = ^TTypeIdxData
TTypeIdxData = Record SAddr: WORD
SType: Char
end;要对这个结构中的SType排序怎么排？用TList.Sort的话比较函数用哪个？我用AnsiStrComp的话运行时报错

可以这样试试：自己写一个排序函数function DoSort(Item1, Item2: Pointer): Integer;begin Result:=ord(PTypeIdxData(Item1)^.SType)-ord(PTypeIdxData(Item2)^.SType);end;排序： list.Sort(@DoSort);