我简单的说下程序部分
我定义了一个字符串数组
nachange:array[0..20] of string;
....
var i,j:string;
....
j:=0;
for i:=0 to 30 do
if b[i]='na'then
begin
nachang[j]:=b[i];(b[i]:string)
inc(j)
end;
测试发现数组元素的值为空。
我定义了一个字符串数组
nachange:array[0..20] of string;
....
var i,j:string;
....
j:=0;
for i:=0 to 30 do
if b[i]='na'then
begin
nachang[j]:=b[i];(b[i]:string)
inc(j)
end;
测试发现数组元素的值为空。
或者b数组根本没有相应的值,或者是你忘了去空格 Trim(b[i])= 'na '
谢谢大家。。来CSDN混成长很快
showmessage(cells[4,i]); // <---这里检查
if cells[4,i]='NA' then
begin
str:=cells[1,i];
showmessage(cells[1,i]); // <---这里检查
...