运行为什么没有结果？？？？？？？？？？？？

Question

for i:=2 to 100 do
         begin
            if data.cells[i,1].value=null then
             begin
              data.cells[i,1].value:=edit6.Text;
              data.cells[i,2].value:=timetostr(time);
              break;
             end;
         end;
        //往excel表格中写内容，编译通过，为什么表格仍然为空？

Answer 1

用 break;主要是考虑每按一次按钮才往表格中写一次

Answer 2

麻烦点写：
      if data.cells[2,1].value=null then
      begin
          data.cells[2,1].value:=edit6.Text;
          data.cells[2,2].value:=timetostr(time);
      end 
      else if data.cells[3,1].value=null then
           begin
               data.cells[3,1].value:=edit6.Text;
               data.cells[3,2].value:=timetostr(time);
           end
     else if data.cells[4,1].value=null then
           begin
               data.cells[4,1].value:=edit6.Text;
               data.cells[4,2].value:=timetostr(time);
           end
    ……
     

Answer 3

因为整个程序中，就这里对工作表data进行操作了，其它的操作都能正常出结果，就是这儿写不进数据。所以节选了这段程序请大家帮忙看看有什么问题。

Answer 4

我觉得问题出在这一句data.cells[i,1].value=null

Answer 5

刚开始用data.cells[i,1].value=''总报错，说不是有效浮点型数据
改用null后倒是没错误了，但运行没结果
varIsNull也试过，和＝null一个效果

Answer 6

Value 是個變體 variants 應採用VarIsEmpty檢查該內容是否存在,
VarIsNull檢查其所指向的內容是否為空

Answer 7

VarIsEmpty运行有错误，和＝''一样的错误

Answer 8

如果没有其他好的办法，我给你一个很笨的办法：
首先全部填入' '(空格),相当于给一个初始化值。然后用data.cell[x,y]=' '应该就可以了。

Answer 9

if data.cells[i,1].value=null
问题就出在这里，不要这句就能写进文件，可这句究竟怎么改？

Answer 10

nil是什么意思？试过了，不行