delphi 导出TXT文本后如何在每行添加编号
我导出为TXT后，想在每行前加编号
如：
00001
.........
00031
如这样的5位数字

请教各位大侠帮忙
[解决办法]
你是怎么导出的？

如果已经导出了，可以这样增加
var
ss1:TStringList;
i:Integer;
begin
ss1:=TStringList.Create;
ss1.LoadFromFile('xxx.txt');
for i:=0 to ss1.Count-1 do
begin
ss1[i]:=IntToStr(i+1)+ss1[i];
end;
ss1.SaveToFile('xxx.txt');
ss1.Free;
end;
[解决办法]
var
s:TStringList;
i:integer;
begin
s:=TStringList.Create;
s.LoadFromFile('XXX.txt');
for i:=0 to s.Count-1 do
s[i]:=Format('%.5d',i)+s[i];
s.SaveToFile('XXX.txt');
s.Free;
end;