цикл while

[Gudzik11]

пытаюсь распарсить XML
тесть есть несколько тэгов <day я пытаюсь пронумеровать их так

procedure TForm1.Pogoda(Sender: TObject);
      var
        q: Integer ;
        s: string ;
 begin
   q:=1;
   GetDir(0,s);
    memo1.Text:=Utf8ToAnsi(IdHTTP1.Get('http://xml.weather.co.ua/1.2/forecast/19?dayf=5&userid=yoursite_com'));
    Memo1.Text:=Replace(Memo1.Text,'<?xml version="1.0" encoding="UTF-8"?>','<?xml version="1.0" encoding="windows-1251"?>');
   while  q<>40 do
   begin
    q:=q+1 ;
    Memo1.Text:=Replace(Memo1.Text,'</day','</day'+IntToStr(q));
    Memo1.Text:=Replace(Memo1.Text,'<day','<day'+IntToStr(q));
    Label1.Caption:= IntToStr(q);
   end;
   Memo1.Lines.SaveToFile(s+'\1.xml');
    {îòêðûâàåì XML}
    XMLDocument1.FileName:='1.xml';
    XMLDocument1.Active := true;
    Memo2.Text:=XMLDocument1.xml.Text ;
    XMLDocument1.Active := False ;
 end;

но на выходе получяю
<day4039383736353433323130292827262 524232221201918 171615141312111098765432
подскажите как сделать чтоб получялось

<day1
<day2
<day3

[TorrentTor]

Добавить #13#10 в строку например

(Memo1.Text+'</day'+'</day'+IntToStr(q)+#13#10)

[Gudzik11]

Вот сам проект
(удалено)
может сможет мне кто то помочь

Читаем правила.

Полный текст программы (в виде архива) может быть прикреплен по запросу кого-либо из форумчан, заинтересованных помочь вам.

З.Ы. Никто не обязан разбираться в вашей проблеме (программе). Ставьте конкретные вопросы и вам помогут.

[3D Hunter]

Замени свой цикл так:

q:=1;
while  q<>40 do
begin
   Memo1.Lines[q-1]:=Replace(Memo1.Lines[q-1],'</day','</day'+IntToStr(q),[rfReplaceAll,rfIgnoreCase]);
   Memo1.Lines[q-1]:=Replace(Memo1.Lines[q-1],'<day','<day'+IntToStr(q),[rfReplaceAll,rfIgnoreCase]);
   Label1.Caption:= IntToStr(q);//зачем это выводить? непонятно
   Inc(q);
end;

И следи за диапазоном строк, чтобы в мемо их было не менее сорока.

Что за новости ??? Вы скоропостижно забыли, что код у нас принято оформлять спецтэгом, а не цитатой ?
Исправил...