大家帮忙看一下可以这样定义数据和数组吗？该怎么处理

大家帮忙看一下可以这样定义数据和数组吗？
大家帮忙看一下可以这样定义数据和数组吗？

type
  Buysend=Record
  amt:double;
  buy:integer;
  send:integer;
  scale:double;
  SendNum:integer;
  tag:integer;
  end ;

  TBuySend=array of BuySend;

var
  BSList:array of TBuySend;

------解决方案--------------------
接分
------解决方案--------------------
这样定义应该没问题吧
------解决方案--------------------
可以这样定义，没有问题。
但是你后面加入的代码有问题
--> if (bs1.buy <>bs2.buy) or (bs1.send <>bs2.send) then 

bs1 bs2是TBuySend类型（array of BuySend）,是个数组
写成 if (bs1[0].buy <>bs2[0].buy) or (bs1[0].send <>bs2[0].send) then 
还差不多

你要搞复杂就要搞清楚到底怎么回事情。没搞清楚前，不要人为的把问题复杂化。

------解决方案--------------------
定义二维数组，你那样定义可以啊
其实可以直接定义；
比如
var
mm: array of array of integer;
i,j: integer;
begin
SetLength(mm,3,4);
for i := 0 to 2 do
begin
for j := 0 to 3 do
mm[i,j] := i + 1;
end;

for i := 0 to 2 do
begin
for j := 0 to 3 do
ShowMessage(inttostr(mm[i,j]))
end;
end;