Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: problem mit rocedure

    Delphi
    by ChrisE, 26. Jan 2010
  Hallo gangs-taas,
  
  das Problem liegt in der Rekursion selber. Du veränderst einen var Parameter innerhalb einer Rekursion. Eine Rekursion braucht aber immer ihren eigenen kleinen "Arbeitsbereich". Das ganze lässt sich damit so lösen:
  
  function ErsterTagDerWoche(Datum : TDateTime): TDateTime;
  var
  i : integer ;
  begin
  i := DayOfTheWeek(Datum);
  If i <> 1 Then