Verrückt...Func-Ergebnisse werden durch Komponenten falsch

[Codix32]

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)