[ApxaHGe1]

Помогите разобраться, почему не добавляется в Memo3 текст по циклу!!! только 2 пункта проходит нормально и потом перестает работать
всего пунктов в ListBox в районе 10
Проект

[lmikle]

Код сюда выложи.
Лично я не буду качать непонятно что с депозита, а потом еще и разбираться что там и как.

[ApxaHGe1]

Там вроде дропбокс, без реклам и все такое

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116

procedure TForm1.Button1Click(Sender: TObject); var i,n,temp,temp2:integer; begin temp:=0;   for i:=0 to ListBox1.Items.Count-1 do begin Memo1.Text:=IdHTTP1.Get('http://www.galacentre.ru/api/GetCatalog/yml/?key='+Edit1.Text+'&catalog='+ListBox1.Items.Strings[i]+'&store=msk'); Memo1.Lines.Strings[0]:=''; ParseArt(Memo1.Text,'<articul>','</articul>',Memo2.Lines); temp2:=Memo2.Lines.Count-1; <font color="Red"> if ListBox1.Items.Strings[i] = 'dacha' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Дача'); end; temp:=temp+Memo2.Lines.Count; end;   if ListBox1.Items.Strings[i] = 'suvenir' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Сувениры'); end; temp:=temp+Memo2.Lines.Count; end;   if ListBox1.Items.Strings[i] = 'posuda' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Посуда'); end; temp:=temp+Memo2.Lines.Count; end;     if ListBox1.Items.Strings[i] = 'hoztovar' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Хозтовары'); end; temp:=temp+Memo2.Lines.Count; end;   if ListBox1.Items.Strings[i] = 'instrument' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Инструменты'); end; temp:=temp+Memo2.Lines.Count; end;   if ListBox1.Items.Strings[i] = 'galante' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Галантерея'); end; temp:=temp+Memo2.Lines.Count; end;   if ListBox1.Items.Strings[i] = 'santehnika' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Сантехника'); end; temp:=temp+Memo2.Lines.Count; end;   if ListBox1.Items.Strings[i] = 'furnitura' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Фурнитура'); end; temp:=temp+Memo2.Lines.Count; end;   if ListBox1.Items.Strings[i] = 'textile' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Домашний текстиль'); end; temp:=temp+Memo2.Lines.Count; end;   if ListBox1.Items.Strings[i] = 'technics' then begin for n := temp to temp2 do begin Memo3.Lines.Add('Бытовая техника'); end; temp:=temp+Memo2.Lines.Count; end;</font>   ParseArt(Memo1.Text,'<name>','</name>',Memo4.Lines); ParsePrice(Memo1.Text,'<price>','</price>',Memo5.Lines); ParseCount(Memo1.Text,'<param name="MSK">','</param>',Memo6.Lines); ParseImg(Memo1.Text,'<picture>','</picture>',Memo7.Lines); end; Label1.Caption:=IntToStr(Memo2.Lines.Count-1); Label2.Caption:=IntToStr(Memo3.Lines.Count-1); Label3.Caption:=IntToStr(Memo4.Lines.Count-1); Label4.Caption:=IntToStr(Memo5.Lines.Count-1); Label5.Caption:=IntToStr(Memo6.Lines.Count-1); Label6.Caption:=IntToStr(Memo7.Lines.Count-1); end;

Выделенное красным, работает 2 раза только на дача и сувенир и на остальных категориях просто игнорируется