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

[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;

[basti1994]

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

[DeddyH]

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