小弟的程序中,需要将wwdbgrid中显示的数据导入到一个csv文件中然后打开它,代码如下:
  with wdbgtemp, wdbgtemp.ExportOptions do
    begin
      ExportType := wwgetTxt;
      FileName := 'export.csv';
      Delimiter := ',';
      Save;
      if not(esoClipboard in Options) then
        ShellExecute(Handle, 'OPEN', PChar(wdbgtemp.exportoptions.Filename), nil, nil,
          sw_shownormal)
    end;大致成功,可形如‘00123’的字符串却变成了‘123’,各位大侠也该碰到过类似情况吧,不知道该怎么解决?

解决方案 »

  1.   

    如果是将数据导入EXCEL的话:
    ColumnRange.Columns[1].numberformatlocal:='@';
      

  2.   

    ColumnRange.Columns[1].numberformatlocal:='@';
      

  3.   

    excelapp.cells[1,1].numberformatlocal := '@';这样试试
      

  4.   

    把单元格中的内容设置为文本形式即可。VBA宏:
    Sub Macro1()
    '
    ' Macro1 Macro
    ' Borlandor 录制 2/24/2003
    '
    '
        Selection.NumberFormatLocal = "@"
        Range("D3").Select
        ActiveCell.FormulaR1C1 = "00011"
        Range("D4").Select
    End Sub
    Delphi:
    ExcelApplication.Cells.NumberFormatLocal := '@';
      

  5.   

    我慢了一步,
    同意Borlandor(五角大民);
      

  6.   

    这个问题解决以后我都忘了,不好意思,埋这么深都被哥几个翻出来了,佩服ing...当时的解决方法就是kgww(king) 说的,导成slk就行了。Borlandor(五角大民) 和其他几位朋友的方法我没试,理论上应该可行的。加单引号我到是试过,不行,出来后就是‘00123,双击后才变成00123,好象是这样的,时间久了也忘的差不多了。结贴!