EncodeDateWeek -> Fehlerbehandlung

[mkinzler]

Delphi-Quellcode:

ok := false;
while not ok do
begin
  I:= 1
  try
  begin
    EncodeDateWeek(strtoint(meinJahr), KW, I);
    ok := true;
  end;
  except
    I:=I+1;
//Nun versuche es nochmal
end;