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.

zusammenfalten · markieren

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
Procedure GetMessage(xml,targetNode:string;message_array: array of array of string);

markieren

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 ?

Definier das array of array of string als eigenen Typen oder benutze die generische Syntax TArray<TArray<string>> , um "kompatible" Typen du haben.
Das array of bei "Parametern" ist ein Sonderfall und stellt einen "offen" Array-Typen dar.

Und da du Werte zuweisen willst, könnte ein var bestimmt nicht schaden.


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.

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:

Procedure GetMessage(const xml,targetNode:string; out messageList: tMessagelist); (ist aber wohl eher geschmackssache)
Gruß
K-H

Zitat von 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:

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 Klingt aber sehr interessant. Das könnte eine einfachere Lösung sein, ich werd das mal recherchieren.

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