关于文件的生成问题？

[无聊的小船]

我想将生的文件内容排列成以下顺序
1 abc 10
2 abc 20
12 abcd 20
111 ab 123
不知道我下面的这段代码怎么修改
procedure TfrmUStu.btnOutClick(Sender: TObject);
var
Present: TDateTime;
Year,Month,Day: Word;
SL: TStringlist;
lp: integer;
StrTmp,str,filename: string;
begin
Present:=Now;
DecodeDate(Present,Year,Month,Day);
filename := 'E:\jlj\stutdata\'+formatfloat('00',Month)+formatfloat('00',Day){copy(datetostr(now),1,2)+copy(datetostr(now),4,2)}+
stringreplace(timetostr(now),':','',([rfReplaceAll]))+'.txt';
SL := TStringlist.Create;
try
cdsStut.first;
while not cdsStut.eof do
begin
StrTmp := '';
for lp :=0 to cdsStut.Fields.Count-2 do //cdsStut是ClientDataset
StrTmp := StrTmp + cdsStut.Fields[lp].Asstring +'';
SL.Add(StrTmp);
cdsStut.next;
end;
SL.SaveToFile(filename);
showmessage('已生成文件'+filename);
finally
SL.free;
end;
end;

[workers]

顶

[tglong]

在
SL.Add(StrTmp);
前增加
StrTmp := StrTmp+#13#10;
即：
StrTmp := StrTmp+#13#10;
SL.Add(StrTmp);

[「已注销」]

可以生成吧，只是你的记录字段没有分开而已，加上长度控制和分隔符就行了

[tglong]

你真可以，顶可以得30分，回答了却只几分，
你是不是在洗分，
人家顶一下赶紧结贴，这样40分都可以给呀
BBS里也这么浓的...