ошибка в выводе StringGrid

[Driver_09]

Нужно найти всех людей, которые живут за пределами пермского края, то есть не 59 регион.
Когда запустите файл, программа выведет ошибку и укажет место где она застопорилась, может кто-то скажет в чём проблема?
P.s. запустите прогу, выберите открыть файл в формате хмл из архива
ещё там подкл. дополнит модуль stack, но там всё верно...

а за сколько бы Вы обработали xml-файл и сделали задание?
просто интересно

[Serge_Bliznykov]

ну не знаю... рублей за 200...

а так
1) код жутчайший.. шаг вправо, шаг влево - расстрел!

2)
для отладки рекомендую проходить пошагово.
добавив в нужные места (это после всех ваших pop_node / read_node / FindNode)

  s := iNode.GetNodeName;
  if s <> '' then Memo1.Lines.Append(s);

добавьте в Watches
iNode
iNode.NodeValue
s
и пошагам смотрите, что происходит..

а вот Ваш проблемный кусок кода
(вроде работает, но не поручусь, что в стеке не остаётся ничего лишнего...)

  iNode:=iNode.ChildNodes.FindNode('Имя'); //ищем имя
  mn.i:=iNode.NodeValue;      // имя тоже, обязательное поле
  iNode:=read_node();      //Переходим К "ФИО"

  iNode:=iNode.ChildNodes.FindNode('Отчество'); //ищем "Отчество"
  if (iNode<>nil) then                 //поле отчество - не обязательное
    mn.o:=is_null(iNode.NodeValue,'')     //если оно есть, записываем его
  else                                 //иначе записываем
    mn.o:='';                             //пустую строку

  s := iNode.GetNodeName;
  iNode:=pop_node();   //Переходим К "ФИО"
  iNode := read_node();  //Считываем "ПолучДох"

 push_node(iNode);
 iNode := iNode.ChildNodes.FindNode('АдрМЖРФ');
 if Assigned(iNode) then begin
      //код региона
      iNode:=iNode.ChildNodes.FindNode('КодРегион');
      if Assigned(iNode) then
        if (iNode.NodeValue <> '59') then
           cnt_usl:=cnt_usl+1;
 end;
 iNode:=pop_node();

  iNode:=iNode.ChildNodes.FindNode('ДатаРожд'); //ищем дату рождения

ни выше/ни ниже ничего не менял...

[Driver_09]

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

а можно как-то использовать StrToInt?
то есть чтобы мне строку в число перевелось и я бы сравнил?

[Serge_Bliznykov]

Сообщение от Driver_09

а вы без стека сможете помочь?

1) а я разве Вам уже не помог?!!! Ведь считаются люди, которые находятся не в том регионе... Добавьте их отображение в грид и всё..
2) или Вы хотите, чтобы я всё за Вас сделал?!

можно как-то использовать StrToInt?

можно... используйте... а в чём вопрос заключается?!
if StrToInt(СтрокаСЧислом)<>59 then...

[Driver_09]

if StrToInt(СтрокаСЧислом)<>59 then не работает, либо я неправильно условие делаю...

добавьте в Watches
iNode
iNode.NodeValue
s

а вот этот момент не понял...поэтому далее прога не идет.

[vedro-compota]

if StrToInt(СтрокаСЧислом)<>59 then не работает

строка точно с числом?
вместо чего ты это условие применяешь?

[Driver_09]

vedro-compota, вот строчка в файле:

<КодРегион>59</КодРегион> .

а второй вопрос немного не понял.
я туда пытаюсь написать типа "если значение узла не 59, то считать его"

[Serge_Bliznykov]

1) я в пост #2 выложил исправленный кусок кода.
Если им заменить аналогичный кусок кода Вышей программы, которыю Вы положили в архиве в пост#1
то программа будет работать и считать людей, у которых регион не равен 59

2) по поводу StrToInt(СтрокаСЧислом)
Посмотрите, какой регион, например у
<Фамилия>Зуев</Фамилия>
<Имя>Андрей</Имя>
<Отчество>Николаевич</Отчество>

там его вообще нет!
а StrToInt не будет работать с пустой строкой...

p.s. да.. такими темпами я сомневаюсь, что Вы закончите программу

[Driver_09]

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

[Driver_09]

спасибо, код ваш работает, но в таблицу не выводит...
сейчас попробую подумать над этим