将数据保存为TXT文件，如何按照TAB键空出每一列为TXT？

Question

A列　　　　　B列　　　C列　　　　　
19990910　　100　　　200
存为TXT，
19990910tab键100tab键200

Answer 1

你用POSTMESSAGE（）用VK_TAB参数

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
tempstring:string;
stringlist:tstringlist;
begin
stringlist:=tstringlist.create;
tempstring:='  ';　{分隔符}
table1.first;
 while not table1.eof do
  begin
    for i:=0 to table1.recordcount-1 do
      begin
         for j:=0 to table1.fieldcount-1 do
           begin
           tempstring:=tempstring+table1.fields[j].asstring+'|  ';
           end;
      stringlist.Add(tempstring);
      tempstring:='  ';　　{分隔符}
      table1.next;
      end;
  end;
stringlist.savetofile('c:\111.txt');
stringlist.Clear;
tempstring:='';
end;
注：这是转发别人的贴子