写Txt 文本文件时,小问题,怎么处理

Question

var ff:textFile;
    var a,b,c:String;
begin
  a:='one';
  b='two';
  c='three';
  asssign(ff,'c:\abc.txt');
  rewrite(ff);
  writeln(ff,a+b+c);
  closeFile(ff);
end;
怎么处理当输出后,在abc.txt 文件里copy 里面的内容到excel 里时,自动的分到3列里,而不是1列里,
是不是在 a+b+c 的地方加森摸转义字符.

Answer 1

加个#9。。就是tab就可以了。

Answer 2

呵呵，你写成文本，最后在列之间比较有规律，比如用逗号分割，然后用一个sql语句搞定
select * into tableabc select * From [Text;Database='+ExtractFilePath(openDialog1.FileName)+';Format=Delimited()].'+ExtractFileName(openDialog1.FileName);

Answer 3

你格式化输出到memo中，字段间用#9分开，然后直接copy的excel中就可以实现你要的功能了。