[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;

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

PHP код:

<day1
<day2
<day3 


[freedomman]

может добавлять символ конца строки в конец, например CHR(13);

[Gudzik11]

если ты так имел ввиду
Memo1.Text:=Replace(Memo1.Text,'</day','</day'+IntToStr(q))+CHR(13);
то только дольше думает а текст без изменений