Задание длины динамического массива в Delphi

[xabik]

Такая вот тема. Пишу программу. Вынес всю математику в отдельный модуль (что б глаз не мозолила). Разместил в этом модуле процедуру которая парсит XML файл, считает количество элементов с определенным именем в нем и задает размер динамического Массива который передан в эту процедуру в качестве параметра.

Так вот беда...

Когда происходит выход из процедуры Массив обнуляется. Как быть?

То есть как задать длину массива в процедуре в которую этот массив передан в качестве параметра?

[ZuBy]

как объявил этот параметр покажи

[xabik]

Основной модуль, где форма. Код проверяет длину массива

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
   ParserXML(XMLMap,ArrStreet,ArrHouse,Arr__90Node);
   Label1.Caption:='';
   Label1.Caption:=IntToStr(Length(Arr__90Node));
end;

Модуль MathUnit

procedure ParserXML(XMLDoc:TXMLDocument;ArrStreet:TArr_Street;ArrHouse:TArr_House; ArrNode:TArr_Node);
var i, sch:integer;
begin
  with XmlDoc.ChildNodes.Nodes[1].ChildNodes do begin
    for i := 0 to Count-1 do begin
      if Nodes[i].NodeName='node' then sch:=sch+1;
    end;
  end;
  sch:=sch;
  SetLength(ArrNode,sch);
end;

[xabik]

Объявление типа элемента массива и типа массива в модуле MathUnit

  TXML_MAP_Node = Record
    X,Y:integer;
    Latitude,longitude:Extended;

...

  TArr_Node = array of TXML_MAP_Node;

[ZuBy]

procedure ParserXML(XMLDoc:TXMLDocument; ArrStreet: TArr_Street; ArrHouse: TArr_House; var ArrNode:TArr_Node);
var i, sch:integer;
begin
  with XmlDoc.ChildNodes.Nodes[1].ChildNodes do begin
    for i := 0 to Count-1 do begin
      if Nodes[i].NodeName='node' then sch:=sch+1;
    end;
  end;
  sch:=sch;
  SetLength(ArrNode,sch);
end;

[xabik]

sch:=sch;

Это что бы вставить точку останова в код.

[Serge_Bliznykov]

позволю Выделить то, что Вам ZuBy посоветовал (кстати, я присоединяюсь к его совету!)

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

procedure ParserXML(XMLDoc:TXMLDocument; ArrStreet: TArr_Street; ArrHouse: TArr_House; var ArrNode:TArr_Node);

[xabik]

[DCC Error] MathUnit.pas(40): E2037 Declaration of 'ParserXML' differs from previous declaration

таков ответ компилятора

...

Sorry.

Всё работает. Благодарю за советы. Большое спасибо!!!

[Serge_Bliznykov]

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

[DCC Error] MathUnit.pas(40): E2037 Declaration of 'ParserXML' differs from previous declaration

таков ответ компилятора

Неужели непонятно, что компилятору не понравилось?!

Разумеется, определение и реализация любого метода (процедуры/функции) ДОЛЖНЫ СОВПАДАТЬ!

Перейдите в интерфейсную часть, где Вы описываете процедуру ParserXML и там тоже исправьте аналогичным образом (добавить VAR )