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 排序,有好方法訪問到不同型態資料中的tag資料.?
 

引言: Hi: List中資料型態不同,如何簡便訪問到每筆資料中tag ========================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。

procedure StrToType(typeName: string);
var
  tempType: Variant;
begin
  根據typeName把變數tempType轉化成typeName表達的型態.
end;  

    case StrToIntDef(StringList1[i],-1) of
        1: begin
            { PStore1 }
        end;
        2: begin
            { PStore2 }
        end;
        { ... }
    end

引言: 如果把Tag定义在Record的第一个位置，那么在 function (Item1, Item2: Pointer): Integer;里，把Item1转换成PStore1、PStore2、PStore3任何一个都可以正确访问到tag的，如 PStore1(Item1)^.Tag PStore2(Item1)^.Tag 如果还要访问别的，那就建议不要用Record,改用定义成TObject 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

 
 如此嗎!
Type
  TCOMMDATA = Class
  tag: WORD;
  otherDATA;
  end;
  
  TREC1 = class(TCOMMDATA)
    REC1_Data
  end;
  TREC2 = class(TCOMMDATA)
    REC2_Data
  end;    TCOMMDATA(Item1).Tag
TCOMMDATA(Item2).Tag
 

TREC1 = record
    tag       : WORD;
    Dlgtype   : WORD;
    left      : WORD;
    top       : WORD;
    length    : WORD;
    colorID   : WORD;
    strID     : WORD;
    visable   : WORD;
   end;
  PStore1 = ^TREC1;    TREC2 = record           
    tag        : WORD;
    CharType   : WORD;           
    Prompt     : WORD;           
    MaxChar    : WORD;           
    visabel    : WORD;
    taborder   : WORD;
  end;
  PStore2 = ^TREC2;    TREC3 = record           
    tag        : WORD;
    ...........           
    visabel    : WORD;
    taborder   : WORD;
  end;