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

[hoika]

Hallo,

dein

Tag[i].Werktag:= Tag[i-1].Werktag+ XXX

ist ja das Grundproblem.
Klappt immer, bis auf i=0


Lösung 1:
eigene Summenvariable nehmen

Delphi-Quellcode:

var
  SumWerktag: Integer;
begin
  SumWerktag:= 0;

  for 
    Tag[i].Werktag:= SumWerktag+ XXX

    SumWerktag:= Tag[i].Werktag  // für den nächsten Tag

Lösung2:
Direkt ein Tag-Record als Zwischensummen-Halter.
Dann muss nicht für WerkTag, Feiertag usw. ja eine Variable benutzt werden.


Beides hat den Vorteil,
dass man das auch besser Debuggen kann.

Und da fällt mir dann auch noch bei
SumWerktag+Weekend(TagArray,i); //

Den Aufruf in eine lokale Variable, auch besser zu Debuggen.



Heiko