нарезка xml файла

[**Татьяна**]

не могу разобраться в коде программыпрограмма нарезает xml файл и берет только нужное.не могу понять алгоритма,объясните!вот кусок кода:

for i:=0 to Memo1.Lines.Count-1 do
        begin
        Gauge1.Progress:=Gauge1.Progress+1;
           for j:=1 to length(memo1.Lines.Strings[i]) do
              begin
                 s:=copy(memo1.Lines.Strings[i],j,1);
                 panel1.Caption:=st; Panel1.Refresh;
                 if s='<' then
                    begin st:=''; continue; end;
                    if st='Parcel CadastralNumber="' then
                       begin fl:=0; st:='';  end;
                       if st='Ordinate X="' then
                          begin fl:=1; st:=''; st2:=''; end;
                          if st=' Y="' then begin fl:=2; st:=''; end;
                          case fl of
                             0: begin
                                if s='"' then
                                   begin fl:=100;
                                   continue; end;
                                   end;
                             1: begin
                                if (s='"')  then
                                   begin
                                      st2:=st;
                                      fl:=100;
                                      st:='';
                                      continue;
                                   end;
                                 end;
                             2: begin
                                if (s='"')  then
                                   begin
                                      if
                                         flx=0 then
                                            begin
                                               flx:=1;
                                               x0:=st2;
                                               y0:=st
                                            end else
                                               begin
                                                  flx:=0;
                                                  x1:=st2;
                                                  y1:=st;
                                                  fly:=1;
                                               end;

[Serge_Bliznykov]

1) приведённый Вами код явно НЕ ПОЛНЫЙ!
где-то должно быть присвоение st:= .......


2)

не могу разобраться в коде программы

и не мудрено! очень подозреваю, что автор данного "шедевра" и сам бы уже в нём запутался...

ну, если вкратце. то похоже, что XML файл грузится просто как текстовый файл (набор строк) в обычное memo1 (скорее всего через memo1.LoadFromFile('Вашфайл.XML');
а потом построчно парсится (устанавливая в процессе разбора переменные, которые выполняют роль переключателей/флажков/семафоров).

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

Конкретно, рекомендую Вам, рассказать, что Вы хотите изменить/переделать/доделать - точнее ПОДРОБНО описать, что должна делать Ваша программа!
и, возможно, выложить проект + тестовый_файл.xml
тогда можно будет помочь Вам конкретно.
а иначе это всё лирика..

[Аватар]

А зачем вообще ручками парсить xml-файл? Есть TXMLDocument, с его помощью все будет красивше и быстрей

[**Татьяна**]

в общем файл содержат кучу тегов, необходимо вытащить от туда только координаты и номер,координаты прграмма вытаскивает и отрисовывает,подключаясь к ZWCad,а вот с номером проблема.номер хранится в теге <Parcel CadastralNumber>(в xml файле).
P.S. ВСЕ ЭТО ОТНОСИТСЯ К 3-ЕЙ ФОРМЕ

скажите есть продвижения по моему вопросу???ну или хотябы пару примеров похожих скиньте плз!!!!!!!!!!

[evg_m]

у или хотябы пару примеров похожих скиньте плз!!!!!!!!!!

1 пример
2 пример
3 пример

[**Татьяна**]

А может найдется добрый человечек?и посмотрит выложенный код?я просто НАЧИНАЮЩИЙ "программист" и пока видимо для меня это оч сложно!!!!!!

таких нету?да?

[Человек_Борща]

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

[evg_m]

  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    XMLDocument1: TXMLDocument;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

примерно так

procedure TForm1.Button1Click(Sender: TObject);
var
  dm: IDOMElement;
  list, listord: IDOMNodeList;
  node: IXMLNode;
  j, k: integer;
  cadastr, num, ordinate: IDOMNode;
  numcadastr: string;
begin
  if not self.OpenDialog1.Execute then exit;
  XMLDocument1.LoadFromFile(self.OpenDialog1.FileName);
  dm:=XMLDocument1.DOMDocument.documentElement;
  list:=dm.getElementsByTagName('Ordinate');
  for j:=0 to list.length-1 do begin
    self.StaticText2.Caption:=format('%d / %d',[list.length, j]);
    ordinate:=list.item[j];
    cadastr:=ordinate.parentNode.parentNode.parentNode.parentNode;
    num:=cadastr.attributes.getNamedItem('CadastralNumber');
    if num<>nil then numcadastr:=num.nodeValue else numcadastr:='';
    self.StaticText1.Caption:=format('%s ',[numcadastr]);
    Application.ProcessMessages;
    sleep(50);
  end;
  self.StaticText1.Caption:='ВСЕ!';
end;

[**Татьяна**]

спс ОГРОМНОЕ человеческое за код!!!а можно еще мааааааленький вопросик:мне теперь вырезанные координаты нужно передать в ZWCad,подскажите в каких переменных они хранятся????

[**Татьяна**]

аааауууууууууууу!!!