关于导出到.txt时的自动分出固定长度的列的问题！！！请帮忙！！

Question

procedure Frmpm.ToBu(Sender: TObject);
var
MyText:TextFile;
a,b,c,d:string[20];
begin
assignfile(MYtext,mytext.txt);
rewrite(mytext);
a:='a';
b:='b';
c:='cc';
d:='dd';
try
????writeln(mytext,a,b);  (给点建议)
????writeln(mytext,c,d);
finally
closefile(mytext);
end;
end;
end.

Answer 1

要求显示如下：
    A                       B                     C               D
   aaa                     bbb                   ccc             ddd

Answer 2

lxpbuaa(桂枝香在故国晚秋) 兄？快来阿！我在线等待！！！

Answer 3

我就想在导出时txt文档能直接分出固定长度的列

Answer 4

： FrameSniper(人类不能不吃饭@手机不能不充电.net) help me!!!

Answer 5

FrameSniper(人类不能不吃饭@手机不能不充电.net) help me!!

Answer 6

不好意思，忘记这个帖子了，你试试下面这个代码：procedure TForm1.Button1Click(Sender: TObject);
const
  cFilePath='C:\';
var
  vText:TextFile;
  A,B,C,D:string[20];
begin
  AssignFile(vText,cFilePath+'MyText.Txt');
  ReWrite(vText);
  A:='a';
  B:='b';
  C:='cc';
  D:='dd';
  try
    WriteLn(vText,Format('%-10s',[A]),Format('%-10s',[B]),Format('%-10s',[C]),Format('%-10s',[D]));  //假设列固定长度是10，当然你可以指定其他值    
  finally
    CloseFile(vText);
  end;
end;当你指定的A、B、C和D的长度大于Format中指定固定长度时，多余部分将被截取掉！