高手帮忙！ms-sql导出到txt文件中，请问如何让各字段定位：

Question

我现在导出的如下：
aa     2005010          VII0122     IAAGG
aaa     2005011          2334444gg   werrrtttt
awggg    2005012          25110       15110
我想要的结果如下：
aa     2005010          VII0122     IAAGG
aaa    2005011          2334444gg   werrrtttt
awggg  2005012          25110       15110

Answer 1

代码如下：
var
  n,n1,n2,n3,n4,n5,n6:string;
  f:textfile;
  Slist:Tstrings;
begin
  SList := Tstringlist.create;
  
  slist.savetofile('c:\txa.txt');
  adoquery1.Close;
  adoquery1.Open;
  while not adoquery1.Eof do
  begin
 n1:=Trim(adoquery1.Fields[0].AsString);
   n2:=Trim(adoquery1.Fields[1].AsString);
  n3:=Trim(adoquery1.Fields[2].AsString);
  n4:=Trim(adoquery1.Fields[3].AsString);
  n5:=Trim(adoquery1.Fields[4].AsString);  n1:=n1+'        '+n2+'       '+n3+'  '+n4+' '+n5;
//因为字段太多，而且有的字段是备注的，不能定多少位，不知用什么办法能让导出的字段放在
TXT文件内的定下的长度内，内容大小不会错位！//n1:=n1+','+n2+','+n3+';
  AssignFile(f,'c:\txa.txt');
  append(f);
  
  Writeln(f,n1);
  CloseFile(f);
  adoquery1.Next;
  end;