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

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