чтение XML

Страницы: «1» «2»

Я с TXMLDocument не работаю.
А так, функцию Copy() ещё никто не отменял...

для чего копи я использую функцию function Replace(Str, X, Y: string): string;

function Replace(Str, X, Y: string): string;
  {Str - строка, в которой будет производиться замена.
   X - подстрока, которая должна быть заменена.
   Y - подстрока, на которую будет произведена заменена}
 
  var
    buf1, buf2, buffer: string;
 
 
  begin
    buf1 := '';
    buf2 := Str;
    Buffer := Str;
 
    while Pos(X, buf2) > 0 do
    begin
      buf2 := Copy(buf2, Pos(X, buf2), (Length(buf2) - Pos(X, buf2)) + 1);
      buf1 := Copy(Buffer, 1, Length(Buffer) - Length(buf2)) + Y;
      Delete(buf2, Pos(X, buf2), Length(X));
      Buffer := buf1 + buf2;
    end;
 
    Replace := Buffer;
  end;

но как то не выходит пронумеровать то есть если я делаю так

Memo1.Text:=Replace(Memo1.Text,'<day','<day1');

то есть функция находит <day и заменяет на <day1
а мне нужно как то сделать чтоб находило <day заменяет на <day1 а следующий <day заменяет на <day2
возможно так сделать ?
может напишеш мне как это можно сделать

Ребяты, напишите человеку прогу, у меня запара полная, времени нет совсем, по ночам не сплю.

спасибо большое за внимание нашёл выход
оказалось проще чем думал просто перебираю day с помощью ChildNodes[1]

 sPanel22.Caption:= XMLDocument1.DocumentElement.ChildNodes['forecast'].ChildNodes[1].ChildNodes['cloud'].Text+'
°Ñ';