var ss: array of array string;
i,j: integer;
begin
Setlength(ss,10);
for i:= 0 to 9 do
begin
setlength(ss[i],10);
for j:= 0 to 9 do
ss[i,j]:='';
end;
end;
i,j: integer;
begin
Setlength(ss,10);
for i:= 0 to 9 do
begin
setlength(ss[i],10);
for j:= 0 to 9 do
ss[i,j]:='';
end;
end;
解决方案 »
- 3层clientdataset 不能过滤中文吗 ??有谁做过?
- 怎样得到CPU的ID的问题 ~请高手帮忙 急急~~~~~
- 调用 Word 中的替换出字符串过长错
- ◆◆那位老兄有简单通讯录源程序◆◆
- 如何用delphi程序将某个数据库中的某个表的字段的“允许空字符串”属性进行更改?
- dcom 服务 客户端配置,在线等候,立即送分
- 同一台oracle数据库服务器,其他机器连接看到的数据都正常,就我看到的中文是乱码,为什么?
- :) 送分了 在用opendialog打开一个*.db文件,要对query进行些什么设置.
- 如何动态的添加listview和treeview的内容
- Delphi6编辑器的问题-字间距变大了,大了很多,看着不习惯,又什么法子改掉?
- 帮助文件?
- 关于Ado连接Access数据库和Sql server2000数据库存储图片的两个问题
定义
var ss: array of array {这里写类型}。
i,j: integer;
begin
Setlength(ss,10);
for i:= 0 to 9 do
begin
setlength(ss[i],10);
for j:= 0 to 9 do
ss[i,j]:='你好';
end;
end;
//分配内存:
setLength(ss,6,5);
var ss: array of array[0..99] of char;i,j: integer;
begin
Setlength(ss,10);
for i:= 0 to 9 do
begin
setlength(ss[i],10);
for j:= 0 to 9 do
strcopy(ss[i,j],'你好');
end;
end;
aa = record
a :string;
b :string;
end;var
arr : array of aa;