Логин:     Забыли пароль?
 
Пароль:   Регистрация

Форум / Программирование - чтение XML  

чтение XML


Страницы: «1» «2»
min@y™
min@y™
Доктор наук
Сообщения: 400
[Сообщение #11] 2 декабря 2011, 19:07
Я с TXMLDocument не работаю.
А так, функцию Copy() ещё никто не отменял... :)

Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Gudzik11
Gudzik11
Посетитель
Сообщения: 8
[Сообщение #12] 2 декабря 2011, 23:01
для чего копи я использую функцию 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
возможно так сделать ?
может напишеш мне как это можно сделать

min@y™
min@y™
Доктор наук
Сообщения: 400
[Сообщение #13] 5 декабря 2011, 08:23
Ребяты, напишите человеку прогу, у меня запара полная, времени нет совсем, по ночам не сплю.

Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Gudzik11
Gudzik11
Посетитель
Сообщения: 8
[Сообщение #14] 5 декабря 2011, 13:55
спасибо большое за внимание нашёл выход
оказалось проще чем думал просто перебираю day с помощью ChildNodes[1]

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


Страницы: «1» «2» (всего страниц: 2, текущая: 2)
Всего сообщений: 14 (сейчас показаны: с 11 по 14)

Перейти в раздел:


 © 2004 - 2018, Delphi.int.ru
Версия форума: 1.10 (19.01.2010)
RSS Delphi.int.ru Expert Код
Выполнено за 0.23 сек.
Обратная связь  
Рейтинг@Mail.ru Majordomo.ru - надёжный хостинг