关于文本文件的输出！高分求救（在线等）

Question

文本文件格式如下
F０=/flower/flower50.gif
F1=/flower/flower51.gif
F2=/flower/flower52.gif
F3=/flower/flower53.gif
.
．
．
F(i)=/flower/flower(i).gif如何写这样一个规则的文本输出程序！

Answer 1

var
  I: Integer;
  N: Integer;
begin
  N := 100;
  with TStringList.Create do try
    for I := 0 to N - 1 do
      Add(Format('F%d=/flower/flower%d.gif', [I, 50 + I]));
    SaveToFile('c:\temp\temp.txt');
  finally
    Free;
  end;
end;

Answer 2

可以运行 吗，
var
  I: Integer;
  N: Integer;
begin
  N := 100;
  with TStringList.Create do try
    for I := 0 to N - 1 do
      Add(Format('F%d=/flower/flower%d.gif', [I, 50 + I]));
    SaveToFile('c:\temp\temp.txt');
  finally
    Free;
  end;
end;

Answer 3

to zswang(伴水清清)(专家门诊清洁工) :  好漂亮的代码！帮我等学习之辈调整一下格式：
var
  I: Integer;
  N: Integer;
begin
  N := 100;
  with TStringList.Create do 
  begin
    try
      for I := 0 to N - 1 do
        Add(Format('F%d=/flower/flower%d.gif', [I, 50 + I]));
      SaveToFile('c:\temp\temp.txt');
    finally
      Free;
    end;
  end;
end;

Answer 4

我KAO
const n=50;
var 
f: TextFile;
i:integer;
begin
AssignFile(f, 'Result.txt');
rewrite(f);
for i := 0 to n-1 do
writeln(f, 'F', i, '=/flower/flower', i, '.gif');
closefile(f);
end;http://lysoft.7u7.net

Answer 5

楼上  writeln(f, 'F', i, '=/flower/flower', i, '.gif');改为  writeln(f,format('F%d=/flower/flower%d.gif',[i,i+50]));