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

[Erwin Pälzig]

Also vielen Dank für die soliden Vorschläge und gute Hinweise! Bereite eine gesonderte Unit vor...

Zitat von mkinzler:

Funktioniert den Uwe's Testprogramm?

jep, eine kleinere Unit mit den Hinweisen von Uwe läuft und lässt sich compilieren.

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
  TForm16 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form16: TForm16;
  TotalEvap: array of real;

implementation

{$R *.dfm}

begin
  SetLength(TotalEvap,0);
  TotalEvap := nil; // ist faktisch identisch mit dem vorigen Befehl
end.

[himitsu]

Zitat:

SetLength(TotalEvap,0);

Strg+Linksklick auf "TotalEvap" oder die Maus drüber halten und etwas warten ... Was sagt dir die IDE denn dabei?

[Erwin Pälzig]

Zitat von himitsu:

Zitat:

SetLength(TotalEvap,0);

Strg+Linksklick auf "TotalEvap" oder die Maus drüber halten und etwas warten ... Was sagt dir die IDE denn dabei?

Hallo, vielen Dank auch für deinen Hinweis!

Bei betätigung springt der Mauszeiger auf die Procedurdefinition im Quelltext

Sonst hier die Aussage bei Bewegung des Mauszeigers über SetLength.

[mkinzler]

Ich glaube Detlef ist auf der richtigen Fährte

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