关于DbGrid导出到Excel求助

Question

我现在要把一些用户的资料导出到Excel，其中的相关语句：
  while not Grid.DataSource.DataSet.Eof do
  begin
    iCol := 0;
    for j := 1 to Grid.Columns.Count do
    begin
      if Grid.Columns[j-1].Visible then
      begin
        Inc(iCol);
        ExcelApp.Cells[i, iCol] := Grid.Columns[j - 1].Field.DisplayText;
      end;
    end;
    Grid.DataSource.DataSet.Next;
    Inc(i);
  end;
但是我发现象身份证跟银行帐户导出却是这种情况：
比如一个用户的身份证号是：330564880906231，但是再Excel上显示却是：3.30565E+14请教如何正确的在Excel上显示身份证号，谢谢！

Answer 1

Excel里的身份证字段类型错误，所以才导致这个

Answer 2

问题搞定了，修改语句： ExcelApp.Cells[i, iCol] := '''' + Grid.Columns[j - 1].Field.DisplayText;