Array Referenz in Klasse

[DeddyH]

Und wieso übergibst Du das Array als Var-Parameter? Wenn ich Dich richtig verstanden habe, willst Du keine Kopie erstellen, sondern mit dem übergebenen Array hantieren, richtig? Hast Du es einmal so versucht?

Delphi-Quellcode:

type
  TMyRec = record
    intval: integer;
  end;

  TMyArray = array of TMyRec;

  TMyClass = class
  private
    FArray: TMyArray;
    procedure SetArray(const Value: TMyArray);
  public
    procedure ShowCount;
    property MyArray: TMyArray read FArray write SetArray;
  end;

procedure TMyClass.SetArray(const Value: TMyArray);
begin
  FArray := Value;
end;

procedure TMyClass.ShowCount;
begin
  ShowMessage(inttostr(Length(FArray)));
end;