Hallo alle zusammen!
Also vielen dank Uwe für deine tatkräftige Unterstützung.
Irgendwie steh ich auf der Leitung. Ich habe mehrere Varianten versucht und es treten jeweils immer verschiedne Fehler auf.
Dies ist die letzte
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
TForm16 =
class(TForm)
procedure TForm16.ClearValues(Sender: TObject);
// -> fehlt hier etwas? [dcc32 Fehler] Unit16.pas(12): E2003 Undeklarierter Bezeichner: 'TForm16'
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form16: TForm16;
TotalEvap:
array of real;
// Deklaration einer globalen Variable TotalEvap mit dem Datentyp (Feld) array mit reelen Einträgen
implementation
{$R *.dfm}
{1. Programmabschnitt}
procedure TForm16.ClearValues;
//-> Definition der Procedur ClearFalues ([dcc32 Fehler] Unit16.pas(28): E2003 Undeklarierter Bezeichner: 'ClearValues')
//var -> wird genutzt wenn nur in diesem Unterabschnitt Variablen genutzt werden
//TotalEvap: TRealArray;
//TotalEvap:array of real;
begin
//SetLength(TotalEvap,0);
TotalEvap :=
nil;
// ist faktisch identisch mit dem vorigen Befehl
end;
//var
//TotalEvap: TRealArray;-> Der Parameter TotalEvap wird mit dem neuen selbsterzeugten Datentyp verknüpft.
//begin
//ClearValues(nil, TotalEvap); -> ClearValues wird aufgerufen und elemente werden auf Null gesetzt, und Totalevap Elemente werden eingfügt-> Verstehe diesn Audruck nicht zu 100%
// end;
end.
Zum aktuellen Quellcode ist eine weitere Fehlermeldung ist im Anhang zu sehen.
Ziel es ist mittels der Procedur Clearvalues die globalen Variablen zum Start des Programms auf Null zusetzten.
Besten Dank für eure Unterstüzung!
Ich bleibe auf jeden Fall dran.