DELPHI导出TXT判断字段值长度后再输出
导出按钮代码：

procedure TFormdrdf.BitBtn6Click(Sender: TObject);

var

tfile: TextFile;

i: Integer;

begin

assignfile(tfile,'d:\11.txt');

rewrite(tfile);


begin

ADOQuery1.first;

for i:=1 to ADOQuery1.recordcount do

begin

writeln(tfile, Format('%.5d',[i])+ADOQuery1.fieldbyname('id').AsString + ADOQuery1.fieldbyname('姓名').AsString + ' ' + ADOQuery1.fieldbyname('帐号').AsString+ '00000000'+ StringReplace(ADOQuery1.fieldbyname('金额').AsString,'.','',[rfReplaceAll]) + ADOQuery1.fieldbyname('身份证号').AsString);

ADOQuery1.next;

end;

end;

closefile(tfile);

MessageBox(GetActiveWindow(), '数据处理完毕，已保存到D盘，文件名为:dfgz.txt', '导出提醒', MB_OK +

MB_ICONWARNING);

end;

我现在想判断ADOQuery1.fieldbyname('姓名').AsString 姓名字段的值，如果是两个字的名字后面就加10个空格字符，如果是三个字的名字就加12个空格，如果是四个字的就加15个空格，这段代码该如何改，急救啊，各位，谢了

最终要达到如下格式，要后面的帐号要对齐，前面的空格则根据字的多少来补充

00255伊来昌 68851209012000151935000000002185630121197404052816

00256伊正权 68851209012000151946000000004370630121193911162819

00257陈录 688512090120001519570000003146.4630121196305242812

00258陈启 68851209012000151968000000004807630121196412022815

[解决办法]
function PrintSpace(iCount:Integer);//增加一个函数，作用为输出iCount个空格
var
i:Integer;
begin
Result:='';
for i:=1 to iCount do
Result:=Result+' ';
end;

procedure TFormdrdf.BitBtn6Click(Sender: TObject);
const
iSpaceCount=20;//假设中间总共有20个空格的位置
var

tfile: TextFile;

i: Integer;
sSpace:string;//空格字符串
begin

assignfile(tfile,'d:\11.txt');

rewrite(tfile);


begin

ADOQuery1.first;

for i:=1 to ADOQuery1.recordcount do

begin
sSpace:=PrintSpace(iSpaceCount-Length(Format('%.5d',[i])+ADOQuery1.fieldbyname('id').AsString + ADOQuery1.fieldbyname('姓名').AsString));
writeln(tfile, Format('%.5d',[i])+ADOQuery1.fieldbyname('id').AsString + ADOQuery1.fieldbyname('姓名').AsString +sSpace+ ADOQuery1.fieldbyname('帐号').AsString+ '00000000'+ StringReplace(ADOQuery1.fieldbyname('金额').AsString,'.','',[rfReplaceAll]) + ADOQuery1.fieldbyname('身份证号').AsString);

ADOQuery1.next;

end;

end;

closefile(tfile);

MessageBox(GetActiveWindow(), '数据处理完毕，已保存到D盘，文件名为:dfgz.txt', '导出提醒', MB_OK +

MB_ICONWARNING);

end;

未经测试，应该这是这样。PS:上一贴你还没结分