So hab nun den größten Teil der Codezeilen entfernt: Hier die lauffähige Unit16.
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)
//procedure ClearValues(Sender: TObject; var TotalEvap: array of real); -> wird im eigentlichen Code verwendet
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form16: TForm16;
TotalEvap:
array of real;
implementation
{$R *.dfm}
{1. Programmabschnitt}
//procedure TForm16.ClearValues; -> wird im eigentlichen Code verwendet
begin
//begin
SetLength(TotalEvap,0);
TotalEvap :=
nil;
// ist faktisch identisch mit dem vorigen Befehl
//end;
{2... weitere Programmabschnitte}
//initialization -> wird im eigentlichen Code verwendet
//finalization -> wird im eigentlichen Code verwendet
end.
Die Prozedurdefinition, und der SetLength Aufruf passen nicht.
Danke für eure Hinweise!
Zu:
Hast Du TotalEvap evtl. noch einmal deklariert (z.B. als lokale Variable oder auch Feld oder Property), ggf. mit einem anderen Typen?
Gute Idee, ich prüfe dies auch.