Oh ja, danke Klaus und Uwe.
Normalerweise rücke ich den Code so ein. Sieht jetzt schon besser aus, ist aber trotzdem irgendwie 'Spaghetti'.
Ich habe jetzt mal die Procedure nicht im Formcreate sondern erst nach der Erstellung des Formulars
in einem ButtonClick aufgerufen. Aber auch hier bleibt der Fehler. Ich raffs nicht.
Hier mal der Typ und das Array im Kopf der FormUnit:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DateUtils, Unit_Holidays, StdCtrls;
type
TTag =
packed record
TNum :Byte;
//<-Nummer des Tages
abwBegin :
String[5];
//<-Abweichung - Beginn
abwEnde :
string[5];
//<-Abweichung - Ende
abwZeit :
string[3];
//<-Arbeitszeit in Minuten/Tag
AStdFaktor:real;
//<-Arbeitsstunden aus Abweichung
TgName :
string[18];
//<-Name des Tages
Werktag : byte;
//<-Der wievielte Werktag im Monat
LohnpTag :real;
//<-Der Lohn für den aktuellen Tag
LbH :real;
//<-Der Lohn der letzten Tage bis heute
end;
type
TTagArray =
array of TTag;
...
...
implementation
uses Berechnung, eigeneDatumsroutinen;
{$R *.dfm}
var
Tagarray:TTagarray;
FTArray:THolidayTable;
//<- enthält 13 Feiertage(GetholidayTable)