Не работает парсер xml

[v0v41k]

Вылазит ошибка Access violation в коде когда парсю текст из XML. А конкретно когда пробую присвоить переменной s текст из polycord. Но showbox отображает корректно значение.

procedure TFrame3.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
poly:TPolygon;
i,j,f:integer;
s:string;
ar:Tarr;
begin
count;
f:=k+lt;
for I := k+1 to f do
  begin
    showmessage(inttostr(k)+' '+inttostr(f));
    showmessage(xmldocument1.DocumentElement.ChildNodes['map'].ChildNodes.Nodes[i].ChildNodes['polycord'].text);
    s:=xmldocument1.DocumentElement.ChildNodes['map'].ChildNodes.Nodes[i].ChildNodes['polycord'].text;
    extractnums(s);
    j:=0;
    repeat
    begin
    showmessage(inttostr(ar[j])+' '+inttostr(ar[j+1]));
      poly[j].X:=ar[j];
      poly[j].Y:=ar[j+1];
      j:=j+2;
    end;
    until j<=length(ar);
    if IsMouseInPoly(x,y,poly) then showmessage('Работает');
  end;
end;

Вот xml

<?xml version="1.0" encoding="UTF-8" ?>
<mapconf>
<map>
	<mapname>try</mapname> //Dont change anything first 4 line
	<source>map.jpg</source>
	<poly>
		<polyname>House1</polyname>
		<polycord>554 497 593 519 635 485 589 465</polycord>
		<mapscenary>1</mapscenary>
	</poly>
	<poly>
		<polyname>House2</polyname>
		<polycord>781 414 881 270 991 327 994 388 941 486</polycord>
		<mapscenary>2</mapscenary>
	</poly>
	<poly>
		<polyname>House3</polyname>
		<polycord>510 408 591 371 519 228 450 258</polycord>
		<mapscenary>3</mapscenary>
	</poly>
	<poly>
		<polyname>House4</polyname>
		<polycord>597 314 575 280 633 249 648 284</polycord>
		<mapscenary>4</mapscenary>
	</poly>
</map>
</mapconf>

Извините что неправильно оформил тему.

[Smitt&Wesson]

Access violation, обычная, я бы сказал типовая ошибка в режиме отладки. Ройте в типизацию. Т.е. тип переменной, которую Вы хотите присвоить, не соответствует тому, чему Вы это хотите присвоить. Пример не разбирал, я - сишник, но как выше писал, ошибка типовая, что для Си, что для Паскаля.

[Stilet]

тип переменной, которую Вы хотите присвоить, не соответствует тому, чему Вы это хотите присвоить.

Не. Я думаю дело в другом.

v0v41k

Проведи эксперимент. Закомментируй сначала ShowMessage свои - запусти, а потом присвоение - запусти. Что из них слажает?
Я бы конечно предложил тебе пошаговку, но похоже ты о ней не знаешь.

[v0v41k]

Все разобрался. Виновата среда. Дебагер почему то не отображал процесс и потому пошаговку заменил болле простым showmessage вчера. Сегодня переустановил и все работает. Всем спасибо.