Delphi7, алгоритм для tsrtinglist

[Tirendus]

Всем привет Вот пытаюсь составить нормальный алгоритм для небольшого xml файла на работе, но никак не могу додумать его до конца.

procedure TForm1.Button1Click(Sender: TObject);
var
f1,f2: tstringlist;
i,j,x: integer;
b: boolean;
s, isadult: string;
begin
f1:= tstringlist.Create;
f2:= tstringlist.Create;
i:=0;
j:=1;
x:=2;
repeat
    repeat
      b:=false;
      if i<=f1.Count-3 then
        begin
        b:=f1[i]=f1[i+3];
        i:=i+3;
        end;
    until not b;
 f2.Add('  <jadjar>');
 f2.add('    <jad>');
 f2.Add('      <name>'+f1[i-3]+'.jad</name>');
 f2.Add('    </jad>');
 f2.add('    <jar>');
 f2.Add('      <name>'+f1[i-3]+'.jar</name>');
 f2.Add('    </jar>');
 f2.add('        <supportedHandsets>');
  while j<(i+2) do          // проблематичная зона кода
    begin
      f2.Add('<handset><make>'+f1[x]+'</make><model>'+f1[j]+'</model></handset>');
      j:=j+3;
      x:=x+3;
    end;                      // проблематичная зона кода
until (j+3)>f1.Count;

Код проходит по всем строкам текстовика, вот пример самого текстовика:

CloseCall_Nokia7210_en
7210
Nokia
CloseCall_Nokia7210_en
2650
Nokia
CloseCall_Nokia7210_en
3100
Nokia
CloseCall_Nokia7210_en
3108
Nokia
CloseCall_Nokia7210_en
3120
Nokia
CloseCall_Nokia7210_en

Собственно он берет все одинаковые строки i (CloseCall_Nokia7210_en), вставляет их в нужные тэги по 1 разу, пока i = i + 3, потом переходит на j и x и все j и x подставляет в нужные тэги ниже i.


В чём собственно проблема
Скрипт почему-то берет на один элемент j и x больше... не могу понять как точно поставить while.

Спасибо за помощь

[ОДИНОЧЕСТВО В СЕТИ]

until (j+3)>f1.Count-1

if i <> (i+3) then j:= (i-2)

i всегда будет не равно (i+3) поэтому и не работает!!!

[Tirendus]

Проблема не в этом, а вот в этом j:=j+3; прога берет на один элемент больше именно из-за этого увеличения j, но как его увеличивать так, что б не брался один лишний элемент каждый раз, я просто не понимаю. попробовал

if i <> (i+3) then j:= (i-2)

так программа вообще не работает.

[Anatole]

до на чала цикла while у вас известно значение і и j. поэтому можно использовать цикл for, например так:

for k := 1 to i div 3 do
begin
      f2.Add('<handset><make>'+f1[x]+'</make><model>'+f1[j]+'</model></handset>');
      j:=1+k*3;
      x:=x+3;
    end;                      // проблематичная зона кода

тогда проще регулировать количество повторений цикла

[Tirendus]

спасибо, но кажеться я нашел решение проблемы проще

  while j<(i+2) do

заменил на

while j<i do