Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: CompareDate gibt immer 1 aus...

    Delphi
    by himitsu, 26. Mai 2015
  Fehlerbehandlung sollte mit eine der ersten Dinge sein, die man unbedingt lernen sollte.
  
  Einfach nur das verwendete StrToDate durch eine der beiden fehlerbehandelnden Funktionen austauschen und dafür das Try-Except weglassen.
  
  
  Oder alles so lassen und blos das Try-Except weglassen. Dann bekommt der Bediener eine Fehlermeldung und der nachfolgende Code wird nur ausgeführt, wenn er die...
• Forum: Object-Pascal / Delphi-Language

  AW: CompareDate gibt immer 1 aus...

    Delphi
    by himitsu, 25. Mai 2015
  Und bezüglich des
  Except
  Zeitraum(now);
  end;
  Einfach so was "Anderes" machen, ohne dem Bediener seinen Fehler zu nennen, ist nicht die feine englische Art.
  
  Und zusätzlich ist diese Art der Fehlerbehandlung eh "ungünstig", dazumal es sowieso absichtlich ein TryStrToDate oder StrToDateDef gibt, was man besser statt einer Exception verwenden sollte.
• Forum: Object-Pascal / Delphi-Language

  AW: CompareDate gibt immer 1 aus...

    Delphi
    by himitsu, 25. Mai 2015
  Formatiere mal den Quelltext ordentlich und dann sieht du es bestimmt.
  
  
  
  function TForm1.TageDazwischen(vor, nach: TDate): Integer;
  begin
  if CompareDate(vor, nach) >= 0 then
  Result := DaysBetween(vor, nach)
  else
  if CompareDate(vor, nach) < 0 then