Tzj.Close;
Tzj.Open;
zjarrayrows:=Tzj.RecordCount ;
Tzj.Last;
if zjarrayrows >= 500 then
begin
SetLength(zjarray,500,5);
zjarrayrows:=500;
for i:=500 to 1 do
for j:=1 to 5 do
begin
zjarray[i-1,j-1]:=Tzj.fields[j].asstring;
Tzj.Prior;
end;
end
else
begin
SetLength(zjarray,zjarrayrows,5);
for i:=zjarrayrows to 1 do
for j:=1 to 5 do
begin
zjarray[i-1,j-1]:=Tzj.
end;
end;
当写到:“zjarray[i-1,j-1]:=Tzj. ” 时
显示错误为:[Pascal Error]:Unable to invoke Code Completion due to errors in source code
这是为什么啊!
Tzj.Open;
zjarrayrows:=Tzj.RecordCount ;
Tzj.Last;
if zjarrayrows >= 500 then
begin
SetLength(zjarray,500,5);
zjarrayrows:=500;
for i:=500 to 1 do
for j:=1 to 5 do
begin
zjarray[i-1,j-1]:=Tzj.fields[j].asstring;
Tzj.Prior;
end;
end
else
begin
SetLength(zjarray,zjarrayrows,5);
for i:=zjarrayrows to 1 do
for j:=1 to 5 do
begin
zjarray[i-1,j-1]:=Tzj.
end;
end;
当写到:“zjarray[i-1,j-1]:=Tzj. ” 时
显示错误为:[Pascal Error]:Unable to invoke Code Completion due to errors in source code
这是为什么啊!
解决方案 »
- 如何返回多种类型数据
- 你用delphi开发什么?
- 为Table添加删除固定字段
- delphi里的IMAGE控件怎么响应键盘啊??急!!
- windows98下如何修改本机ip地址?
- 创建一个带有CheckBox的TreeView,如何获得OnCheck消息呢?
- 申请辞去数据库相关版主职位
- 单击TDBComboBox下拉列表中的一项为什么不能添到TDBComboBox.text中
- 走过的,路过的,各位大虾请进来看看!
- 用SQL_SERVER创建的交叉表查询,在DBGRID上要如何进行编辑处理啊....
- Ehlib3.5中DBGridEH的过滤功能如何使用?
- 请问用ADO连数据库为何DBCombobox设置DataField后运行出错?
???
是不是代码没帖全啊
zjarray[i-1,j-1]:=Tzj.fields[j].asstring;
var zjarrayrows : integer;
zjarray : array of string;
for j:=1 to 5 do
begin
zjarray[i-1,j-1]:=Tzj.//源代码是这样的?!
end;