Danke,
aber leider springt er nur einmal zurück.
Wenn I dann 2 ist geht er nicht zum except, sondern wirft den Fehler.
Woran könnte das liegen ?
Das ist mein Code:
Delphi-Quellcode:
KW := WeekOfTheYear(meinDatum);
I := 1;
OK := False;
While not OK do
begin
try
begin
EncodeDateWeek(strtoint(meinJahr), KW, I);
OK := True;
end;
except
I:=I+1;
If I = 7 then
begin
If KW = 1 then KW := 2;
If KW = 53 then KW := 1;
If KW = 54 then KW := 1;
I:= 1;
end;
end;
end;
Mein Fehler. Ich muss den Exception-Typ im Debug-Modus auch ignorieren
Ist gelöst. Danke