Hallo liebe Delphifreunde,
bitte schaut euch mal folgenden Code und das dazugehörige Bild an.
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
VAR MyVirt_Frei : Array[0..8] of String;
i,k,m : Integer;
ADate : TDateTime; // oder Double oder extended ?
MyADate : Array[0..3] of TDateTime; // oder Double oder extended ?
begin
MyVirt_Frei[0] := '07.04.2023'; // virt. Freitage z.B. für Infineon z.B den 06.04.2023 - 03.04. 2023
MyVirt_Frei[1] := '15.04.2022'; // == börsenfreie Tage
MyVirt_Frei[2] := '31.12.2021'; // == börsenfreie Tage
MyVirt_Frei[3] := '24.12.2021'; // == börsenfreie Tage
MyVirt_Frei[4] := '02.04.2021';
MyVirt_Frei[5] := '01.01.2021';
MyVirt_Frei[6] := '25.12.2020';
MyVirt_Frei[7] := '01.05.2020';
MyVirt_Frei[8] := '10.04.2020'; // virt. Freitage z.B. für Infineon z.B den 06.04.2023 - 03.04. 2023
m := 0; // wenn 'm:= 0' auskommentiert wird ist ....-->
For i := 0 to 8 do // zu den entsprechenden Freitagen müssen due DAVOR LIEGENDEN 1-4 Tage
begin // herausgefiltert werden
For k := 0 to 3 do
begin
// m := i+k; // nur zum testen eingesetzt!!!; wenn 'm:= i+k' aktiv ist
// läuft alles wie es soll !!
ShowMessage(IntToStr(m)); // -->> ist'm' = 10 !! sonst = 0
ADate := StrToDateTime(MyVirt_Frei[i]); // fehlender Freitag
MyADate[k] := (ADate-1);
end;
end;
end;
Wenn ich einen Breakpoint bei ADate := StrToDateTime..... setze und m := i+k ist w.o. auskommentiert funktioniert der Braekpoint offensichtlich nicht
(Siehe Bild i = 9,k = 4 !) d.h. die Schleifen laufen durch. Wenn ich die Auskommentierung aufhebe läuft alles korrect.
Wer hat eine Idee bezüglich des seltsamen Verhaltens ?
vielen Dank Wolfgang