等高手解決此問題！delphi類問題！


  TheDataList := TRD1_VolStyleList.Create(True, PacketFileName);
  Count := TheDataList.Count;
  SetLength(aDataRec, Count);    if theDataList.count > 0 then
    begin
      for i := 0 to theDataList.Count - 1 do
      begin
        TheItem := TRD1_VolStyleList(TheDataList)[i];
        aDataRec[i].DATE := TheItem.DateStr;
        aDataRec[i].RATE := TheItem.RATE; //磕戈秖ゑ
        aDataRec[i].Up := TheItem.Up; //戈糤搭
      end;
   end;下面是上面參數的大概定義
  TPRead_RD1_Vol = array of TRead_RD1_Vol;
  TRead_RD1_Vol = record
  DATE: string;
  Up: Double;
  RATE: Single;  TWWCustomDataKeyList = class(TObject)
  TRD1_VolStyleList = class(TWWCustomDataKeyList)  TheDataList: TWWCustomDataKeyList;
  TheItem: TRD1_VolItemRec;
  aDataRec: TPRead_RD1_Vol; //   TRead_RD1_Vol
TheItem := TRD1_VolStyleList(TheDataList)[i];這句話是什么意思，看不明白！～～～～～～