List中的資料排序問題 (50分)

type
TREC1 = record
Dlgtype : WORD;
left : WORD;
top : WORD;
length : WORD;
colorID : WORD;
strID : WORD;
visable : WORD;
tag : WORD;
end;
PStore1 = ^TREC1;

TREC2 = record
CharType : WORD

Prompt : WORD

MaxChar : WORD

visabel : WORD;
taborder : WORD;
tag : WORD;
end;
PStore2 = ^TREC2;

TREC3 = record
...........
visabel : WORD;
taborder : WORD;
tag : WORD;
end;
PStore3 = ^TREC3;

........
........
TRECN = record
..........
..........
tag : WORD;
end;
PStoreN = ^TRECN;

以上自定義型態都有 tag : WORD;
var
List: TList;

List是PStore1,PStore2,......PStoreN型態資料的列表.請幫忙實現在List中將資料按 tag 排序

找个排序算法,自己排

關鍵問題不是算法問題.List中資料型態不同,如何簡便訪問到每筆資料中tag,看看個位富翁如何處理.

有点乱，看了眼花

TTagType = record
Tag: Word;
end;
你把定义的类型改一下, Tag放在开头, 比较时再作类型转换TTagType

HI:jackchin

是這樣嗎?
TTagType = record
Tag: Word;
end;

TRECN = record
tag : TTagType ;
..........
..........

end;
PStoreN = ^TRECN;

不是, 你不是有TREC1, TREC2, TREC3吗? 排序的时候, 要比较大小,
你就不管它是 TREC1还是TREC2还是TREC3, 都强类型转换为我说的
TTagType, 前提是Tag要放在第一个域

接受答案了.