Autor Beitrag
daywalker0086
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 234


Delphi 2005 Architect
BeitragVerfasst: Do 23.08.18 09:13 
Hallo Leute,
irgendwie bekomme ich es nicht hin mit eigenen Datentypen umzugehen.
Ich habe zwei Units. In einer habe ich eine Procedure deklariert:
ausblenden volle Höhe Delphi-Quelltext
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-1do
  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;

in der anderen will ich sie aufrufen:
ausblenden Delphi-Quelltext
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;


Jetzt erhalte ich beim kompilieren beim Funktionsaufruf den Fehler die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen.
Tun sie aber meiner Meinung nach...

Kann mir jemand den Fehler aufzeigen?


EDIT: Hat sich erledigt...