mehrdimensionales array übergeben

[Ajintaro]

Hallo DP,

mit folgender Prozedur möchte ich eine kleine XML Datei lesen und ein zwei dimensionales array befüllen, um es später in einer anderen Unit zu verwenden.

Delphi-Quellcode:

Procedure GetMessage(xml,targetNode:string;message_array:array of array of string);
var
  xmldoc : IXMLDocument;
  root:    IXMLNode;
  msg_node:IXMLNode;
  i: Integer;
  x:integer;
  s: string;

begin
//XMLDocument erzeugen und xml-Datei laden
  xmlDoc := newXMLDocument;
  xmlDoc.LoadFromXML(xml);
  xmlDoc.Active := true;
  root := XMLDoc.DocumentElement;


  for i := 0 to xmlDoc.ChildNodes[root.NodeName].ChildNodes.Count -1 do
  begin
    s := xmlDoc.DocumentElement.ChildNodes[i].NodeName;
    x := CompareStr(s, targetNode);
    if x = 0 then //targetnode Node gefunden
    begin
        message_array[i,1] := (xmlDoc.DocumentElement.ChildNodes[i].ChildNodes.FindNode('message').Text);
        message_array[i,2] := (xmlDoc.DocumentElement.ChildNodes[i].ChildNodes.FindNode('type').Text);
        message_array[i,3] := (xmlDoc.DocumentElement.ChildNodes[i].ChildNodes.FindNode('code').Text);
        message_array[i,4] := (xmlDoc.DocumentElement.ChildNodes[i].ChildNodes.FindNode('parameter').Text);
        message_array[i,5] := (xmlDoc.DocumentElement.ChildNodes[i].ChildNodes.FindNode('id').Text);

    end;
  end;
end;

Ich wollte beide XML Knoten "displayMessages" und deren Unterbau in ein zweidimensionales array packen, aber der Compiler lässt mich kein mehrdimensionales array als Übergabeparameter der Prozedur erstellen:

Compilerfehler: Bezeichner erwartet, aber 'ARRAY' gefunden

Delphi-Quellcode:

Procedure GetMessage(xml,targetNode:string;message_array: array of array of string);

Code:

<?xml version="1.0" encoding="UTF-8"?>
<Model xmlns="http://www.test.de">
   <displayMessages>
      <message>An error has occurred.</message>
      <type>UH</type>
      <code>99999</code>
   </displayMessages>
   <displayMessages>
      <message>Something is wrong</message>
      <type>UH</type>
      <code>999999</code>
      <parameter>HALLO_WELT</parameter>
      <id>30</id>      
   </displayMessages>
</Model>

Oder wäre ein Array von Records besser geeignet ?

[himitsu]

Definier das

Delphi-Quellcode:

array of array of string

als eigenen Typen oder benutze die generische Syntax

Delphi-Quellcode:

TArray<TArray<string>>

, um "kompatible" Typen du haben.
Das

Delphi-Quellcode:

array of

bei "Parametern" ist ein Sonderfall und stellt einen "offen" Array-Typen dar.

Und da du Werte zuweisen willst, könnte ein

Delphi-Quellcode:

var

bestimmt nicht schaden. :zwinker:


Wenn du die Namen kennst und auch schön lesbar im Code benutzen willst, dann Record-Array oder Objekt-Array oder gar eine Objekt-Liste. :stupid:

[p80286]

a) Record bietet sich an
und
b) eine List (of Record) nutzen.

Eine "MessageList" würde sich hier mM nach anbieten, und ich bevorzuge out:

Delphi-Quellcode:

Procedure GetMessage(const xml,targetNode:string; out messageList: tMessagelist);

(ist aber wohl eher geschmackssache)
Gruß
K-H

[Ajintaro]

Zitat:

Zitat von p80286 (Beitrag 1292609)

a) Record bietet sich an
und
b) eine List (of Record) nutzen.

Eine "MessageList" würde sich hier mM nach anbieten, und ich bevorzuge out:

Delphi-Quellcode:

Procedure GetMessage(const xml,targetNode:string; out messageList: tMessagelist);

(ist aber wohl eher geschmackssache)
Gruß
K-H

Ich habe noch nie mit einer TList gearbeitet :shock: Klingt aber sehr interessant. Das könnte eine einfachere Lösung sein, ich werd das mal recherchieren.

[p80286]

U.U. ist eine TObjectlist die bessere Wahl, angeblich ist die Freigabe dabei einfacher, zu meiner Schande muß ich aber gestehen, daß bisher immer nur die TList genutzt habe.

Gruß
K-H