把各种字段转化成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,实际是'张三',那你在把它处理成'张三 ',其实的类同,
读的时候根据表字段的长度读,在转换成相应的类型的数据存入数据库即可。
如
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,实际是'张三',那你在把它处理成'张三 ',其实的类同,
读的时候根据表字段的长度读,在转换成相应的类型的数据存入数据库即可。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货