XE 7 Error Meldung E2158 System-Unit veraltet oder beschädigt @Clr fehlt

[Uwe Raabe]

Delphi-Quellcode:

unit Unit16;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TRealArray = array of Real;

type
  TForm16 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure ClearValues(var theArray: TRealArray);
  end;

var
  Form16: TForm16;
  TotalEvap1: TRealArray; // Alle Arrays als TRealArray deklarieren!
  TotalEvap2: TRealArray; 
  TotalEvap3: TRealArray; 

implementation

{$R *.dfm}

{1. Programmabschnitt}
procedure TForm16.FormCreate(Sender: TObject);
begin
  ClearArray(TotalEvap1);
  ClearArray(TotalEvap2);
  ClearArray(TotalEvap3);

  { alternativ aber auch einfacher }
  TotalEvap1 := nil;
  TotalEvap2 := nil;
  TotalEvap3 := nil;
end;

procedure TForm16.ClearValues(var theArray: TRealArray); 
begin
  theArray := nil;
end;

end.