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];這句話是什么意思,看不明白!~~~~~~
TRD1_VolStyleList(TheDataList)[i]是取第i个
TRD1_VolStyleList(TheDataList)这是转型