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

[hoika]

Hallo,
ist das jetzt ein neues Projekt oder ein geöffnetes altes Projekt?
Was passiert, wenn Du ein neues Projekt anlegst?

Heiko

[Erwin Pälzig]

Hallo Heiko,

das Projekt an dem ich arbeite ist ein geöffnetes altes Projekt evtl. Delphi 2007 oder so, weis es leider nicht so genau.

Zitat von hoika:

Hallo,
ist das jetzt ein neues Projekt oder ein geöffnetes altes Projekt?
Was passiert, wenn Du ein neues Projekt anlegst?

Heiko

Bei einem neuen Projekt habe ich so eine Lösung gefunden.
(Es lag an der Definition der globalen Variablen, Definition der Array Komponenten, Nutzung von SetLength(...) und Prozedur-Deklaration)

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; //-> ist die Stelle hier korrekt (hier wird ein Datentyp deklariert, mit dem Typ Array (Feld) mit reelen Einträgen
type
  TForm16 = class(TForm)
  procedure FormCreate(Sender: TObject);
  private
    //procedure ClearValues(Sender: TObject; var theArray: TRealArray);
    { Private-Deklarationen }
  public
    procedure ClearValues(var Sender: TObject; var theArray: TRealArray);
    { Public-Deklarationen }
  end;

var
  Form16: TForm16;
  TotalEvap1: TRealArray; // Deklaration einer globalen Variable TotalEvap1 mit dem Datentyp TRealArray
  TotalEvap2: TRealArray; // Deklaration einer globalen Variable TotalEvap2 mit dem Datentyp TRealArray
  TotalEvap3: TRealArray; // Deklaration einer globalen Variable TotalEvap3 mit dem Datentyp TRealArray
implementation

{$R *.dfm}

{1. Programmabschnitt}
procedure TForm16.FormCreate(Sender: TObject); //-> Definition der Procedur ClearFalues
begin
  TotalEvap1 := nil;  // Elemente des TotalEvap1-Arrays werden auf Nullzeiger gesetzt
  TotalEvap2 := nil;  // Elemente des TotalEvap2-Arrays werden auf Nullzeiger gesetzt
  TotalEvap3 := nil;  // Elemente des TotalEvap3-Arrays werden auf Nullzeiger gesetzt
end;

procedure TForm16.ClearValues;
begin
 theArray:= nil; // Elemente des theArray werden auf Nullzeiger gesetzt
end;

 end.