如何将DBGRID数据导入到记事本中去，格式就像事件查看器导出的那种

Question

如题
谢谢回答
格式就像是系统自带的事件查看器导出为.TXT那种格式

Answer 1

procedure SaveToText(vGrid: TDBGrid; vFileName: String);
var
  vDataSet: TDataSet;
  vTxt: TextFile;
  i: Integer;
  vStr: String;
begin
  vDataSet := vGrid.DataSource.DataSet;
  AssignFile(vTxt, vFileName);
  Rewrite(vTxt);
  try
    //写入标题，用Tab分隔
    for i:=0 to vGrid.Columns.Count-1 do
    begin
      vStr := vStr + vGrid.Columns[i].Title.Caption + #9;
    end;
    Writeln(vTxt, vStr);
    //写入数据，用Tab分隔
    vDataSet.First;
    while not vDataSet.Eof do
    begin
      vStr := '';
      for i:=0 to vDataSet.Fields.Count-1 do
      begin
        vStr := vStr + vDataSet.Fields[i].AsString + #9;
      end;
      Writeln(vTxt, vStr);
      vDataSet.Next;
    end;
  finally
    CloseFile(vTxt);
  end;
end;

Answer 2

谢谢楼上的兄弟
我是说格式就像是事件查看器那样
它的数据保存为.TXT文件，你保存一下就知道
我的意思就是要DBGRID保存到记事本中
格式和那个相似

Answer 3

不行呀
报错
I/O错误
到
 Rewrite(vTxt);
这里就错了

Answer 4

gobiz(拔剑容易收剑难) 帮忙呀