Question

delphi二维数组定义 赋值

我有一个5*400的数组，应该怎么样去定义和赋值呢？？
我的数据在excel表格里面，不会是需要一个一个的赋值吧？？

Answer 1

数据在excel表格里时，可以把xls文件当铸一个数据库，Sheet当成一个数据库表，使用类似连接ACCESS的方法连接到XLS文件，然后使用ADO+SQL语句可以进行处理，连接字符串一般为：

const
ConnStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties=Excel 8.0;'
+ 'Persist Security Info=False';
%s就是你的excel文件，使用Excel的Sheet做为表名时，要用中括号引起来，例如：
select * from [sheet1]

Answer 2

var
dt: Array[0..4] of Array[0..399] of Integer;
r,c: Integer; // r 行，c 列

...
for i := 0 to 4 do begin

for j := 0 to 399 do begin

dt[i, j] := 100;
end;

end;

...

Answer 3

不用ADO连接的话，把数据导出为cvs格式，delphi可以批量读入