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

[uligerhardt]

Die Fehlermeldung klingt doch eher so, als wären die Pfadeinstellungen vergurkt?

[Uwe Raabe]

Zitat:

//procedure ClearValues(Sender: TObject; var TotalEvap: array of real); -> wird im eigentlichen Code verwendet

Das ist der entscheidende Hinweis! In diesem Fall ist TotalEvap nämlich als var-Parameter definiert und nicht als globale Variable. Allerdings wird der Typ generisch angegeben und nicht als deklarierter Typ und dann kommt der Compiler nicht mehr klar. So sollte es gehen (und so sollte man es auch machen):

Delphi-Quellcode:

program Project10;

{$APPTYPE CONSOLE}

type
  TRealArray = array of Real;

procedure ClearValues(Sender: TObject; var TotalEvap: TRealArray);
begin
  SetLength(TotalEvap,0);
  TotalEvap := nil;
end;

var
  TotalEvap: TRealArray;

begin
  ClearValues(nil, TotalEvap);
end.

[Erwin Pälzig]

Zitat von Uwe Raabe:

Zitat:

//procedure ClearValues(Sender: TObject; var TotalEvap: array of real); -> wird im eigentlichen Code verwendet

Das ist der entscheidende Hinweis! In diesem Fall ist TotalEvap nämlich als var-Parameter definiert und nicht als globale Variable. Allerdings wird der Typ generisch angegeben und nicht als deklarierter Typ und dann kommt der Compiler nicht mehr klar. So sollte es gehen (und so sollte man es auch machen):

Delphi-Quellcode:

program Project10;

{$APPTYPE CONSOLE}

type
  TRealArray = array of Real;

procedure ClearValues(Sender: TObject; var TotalEvap: TRealArray);
begin
  SetLength(TotalEvap,0);
  TotalEvap := nil;
end;

var
  TotalEvap: TRealArray;

begin
  ClearValues(nil, TotalEvap);
end.

Vielen Dank Uwe!

Ich werde deine Hinweise berücksichtigen und melde mich zurück!

[Erwin Pälzig]

Zitat von uligerhardt:

Die Fehlermeldung klingt doch eher so, als wären die Pfadeinstellungen vergurkt?

Hallo Uli.
Ich hatte ebenfalls danach gesucht.
Hatte hierrüber auch den Fehler (ähnlichen gefunden)

http://docs.embarcadero.com/products...spart_xml.html

Hier auch der Screenshot dazu. Ich habe nach der System.dcu gesucht und sie auch in dem entsprechendem Verzeichnis:
C:\Program Files (x86)\Embarcadero\Studio\15.0\lib\win64\release gefunden.


Nur scheint es, dass im Quelltext etwas nicht passt.

Zitat von DeddyH:

Hast Du TotalEvap evtl. noch einmal deklariert (z.B. als lokale Variable oder auch Feld oder Property), ggf. mit einem anderen Typen?