Question

我想在大小为10X10的矩阵中添加最后一列之后的一些列。我编写了如下代码：

 for i:=1 to N
      do
    begin
      for j:=1 to N  do
        if j = N then
        begin
         if fileexists('d:\A\'+'img'+inttostr(I)+' '+'0'+'.bmp') then

          Write(f,input^[i]^[j],' ','0')
        end
          else
           Write(f,input^[i]^[j],' ','1');

但是这段代码在其他列之间添加了列。谁能解决这个问题？

Answer 1

我认为你早于预期结束对FileExists的测试。

在编写完所有固定列之后，此代码将在extra列中写入内容。

for i := 1 to N do
begin
  for j := 1 to N do
    Write(f, input^[i]^[j], ' '); 
  // Now it is time for writing the extra column   
  if FileExists('d:\A\' + 'img' + inttostr(i) + ' ' + '0' + '.bmp') then
    WriteLn(f, '0')
  else
    WriteLn(f, '1');
end;

编辑：您只需为每个索引i测试一次文件。更新了代码。

如何在delphi中添加新的列数组

1 个答案: