1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Controls,
  Dialogs, StdCtrls, ShellAPI, WinProcs, WinTypes, console,
  ComCtrls, StrUtils,  ExtCtrls,LJUDDelphi, forms, XMLDoc, Math, XMLIntf,CAN, Hauptunit, notify_form, PCANBasic;
   type
TMyArrayS= array of string;

  procedure find_version(XMLdoc: IXMLDocument; var versions: TMyArrayS);

.
.
.

procedure find_version(XMLdoc: IXMLDocument; var versions: TMyArrayS);
var

i,j: integer;
begin
  XMLDoc.LoadFromFile(xml_pfad);
  showmessage(DEVICE_NAME);
  showmessage(vartostr(xmldoc.ChildNodes['Root'].ChildNodes[DEVICE_NAME].Attributes['version']));
  for i:= 0 to (xmldoc.ChildNodes['Root'].ChildNodes.Count-1) do
  begin
    if xmldoc.ChildNodes['Root'].ChildNodes.Nodes[i].NodeName = DEVICE_NAME then
    begin
      SetLength(versions, 1);
      versions[j]:= 'Version: '+(vartostr(xmldoc.ChildNodes['Root'].ChildNodes.Nodes[i].Attributes['version']));
      j:= j+1;
    end;
  end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button2Click(Sender: TObject);
var
versions: TMyArrayS;
begin
XMLDoc.LoadFromFile(xml_pfad);



(functions.find_version(XMLDoc, versions));
end;