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

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;