把各种字段转化成String形,加起来

var
s: Tstringlist;
begin
   s:=tstringlist.create;
   while not query1.eof do
   begin
      s.add(query1.fields['name'].asstring+inttostr(query1.fields['age'].asineger)....等等);
   end;
   s.savetofile('s.txt');
end;   在中间加的时候用空格把中间补上,如name长度是6,实际是'张三',那你在把它处理成'张三  ',其实的类同,
读的时候根据表字段的长度读,在转换成相应的类型的数据存入数据库即可。