"Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen" Fehler

[basti1994]

Hallo,

ich habe ein programm erstellt, welches ein dynamisches array von einer Unit an die andere übermitteln soll

dazu hab ich ich in der aufrufenden Unit dass array so Deklariert:

Delphi-Quellcode:

type
TRSnakeElements = record
                 x:integer;
                 y:integer;
  end;



    TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Elements : array of TRSnakeElements;

und rufe es dann mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Snake(Elements);
showmessage('haha' + inttostr(Elements[0].x));
end;

auf.

Die andere Unit schaut so aus:

Delphi-Quellcode:

unit USnake;

interface
type

TRSnakeElements = record
                 x:integer;
                 y:integer;
  end;
  TSnakeElements = array of TRSnakeElements;

 procedure Snake(var Elements: TSnakeElements);

implementation
procedure Snake(var Elements: TSnakeElements);
begin
SetLength(Elements, 2);
Elements[0].x:=3;
Elements[0].y:=4;
end;

end.

bekomme aber leider bei

Delphi-Quellcode:

Snake(Elements);

die Fehlermeldung das die Typen nicht die gleichen sind, sind sie doch aber oder?

Mit freundlichen Grüßen Basti

[mkinzler]

Lagere

Delphi-Quellcode:

interface
type

TRSnakeElements = record
                 x:integer;
                 y:integer;
  end;
  TSnakeElements = array of TRSnakeElements;

in eine eigene Unit aus, und binde diese in den anderen ein.

Die Typen heissen zwar gleich und sehen genauso aus, sind aber für den Compiler 2 verschiedene Typen

[basti1994]

Hmmmm,

jetzt schauts so aus:

Delphi-Quellcode:

unit UVisualization;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls, USnake,UTypen;

type
    TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Elements : array of TRSnakeElements;



implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
Snake(Elements);
showmessage('test' + inttostr(Elements[0].x));
end;

end.

in der anderen unit:

Delphi-Quellcode:

unit USnake;

interface
uses
 UTypen;
procedure Snake(var Elements: TSnakeElements);

implementation
procedure Snake(var Elements: TSnakeElements);
begin
SetLength(Elements, 2);
Elements[0].x:=3;
Elements[0].y:=4;
end;

end.

und das ausgelagerte:

Delphi-Quellcode:

unit UTypen;

interface
type

TRSnakeElements = record
                 x:integer;
                 y:integer;
  end;
  TSnakeElements = array of TRSnakeElements;

implementation

end.

bekomme aber trotzdem noch den gleichen Fehler :(, hast du noch ne Idee ?

Mfg Basti

[Bjoerk]

Elements : TSnakeElements;

[DeddyH]

Elements ist immer noch als Array of TRSnakeElements deklariert. Mach daraus einmal TSnakeElements.

[basti1994]

ups, was fürn dummer Fehler ....ich danke euch , jetzt gehts :)