Проходить цикл заново если дошли до последней строки Tstringlist, как реализовать?

[FleXik]

Проходить цикл заново если дошли до последней строки Tstringlist, как реализовать?

var
  img, url:string;
  i, j:integer;
  fIMAGE, fURL:TStringList;
begin
  i:=0;
  sRichEdit2.Clear;

    if Pos('.txt', sFileNameEdit1.Text)<>0 then
    begin

      try
        fIMAGE:=TStringList.Create;
        fIMAGE.LoadFromFile(sFilenameEdit1.FileName);
      except
        Exit;
      end;

      while (i<sSpinEdit1.Value) do
      begin
        img:=StringReplace(sRichEdit1.Lines.Text, '$IMAGE$', fIMAGE[i], [rfReplaceAll, rfIgnoreCase]);
        sRichEdit2.Lines.Add(Trim(img));
        inc(i);
      end;

    end;

[Stilet]

i:=0;
  while true do
      begin
        img:=StringReplace(sRichEdit1.Lines.Text, '$IMAGE$', fIMAGE[i mod fIMAGE.Count], [rfReplaceAll, rfIgnoreCase]);
        sRichEdit2.Lines.Add(Trim(img));
        inc(i);
      end;

Годится?

[FleXik]

fIMAGE[i mod fIMAGE.Count]

за это большое спасибо, вообще первый раз вижу такую реализацию

только вот так пашет :D

while (i<sSpinEdit1.Value) and True do

[Аватар]

А and True зачем? Чтобы масло маслянее было

[Stilet]

Чтобы масло маслянее было

Ищь ты, масленница

только вот так пашет

Может и да, но так ты нарушаешь свое собственное ТЗ.