Thema: Delphi Astro-Daten

Einzelnen Beitrag anzeigen

Benutzerbild von markus5766h
markus5766h

Registriert seit: 5. Mär 2009
Ort: Hamburg
559 Beiträge
 
Delphi 7 Enterprise
 
#20

AW: Astro-Daten

  Alt 21. Dez 2013, 18:48
Hallo,

in der Astro4.rar --> uAstro.pas war noch ein kleiner Fehler versteckt :
Delphi-Quellcode:
function NextEclipse(var Date : TDateTime; sun : Boolean): TEclipse;
var
  temp_date: TDateTime;
begin
  Result := ecNone;
  temp_date := Date - 28 * 2;
  while temp_date < Date do
   begin
    temp_date := temp_date + 28;
    Result := Eclipse(temp_date, sun);
   end;
  date := temp_date; // <----- diese Zeile muss entfernt werden !!!!!!!!!!!
end;
im Post #1 ist die Datei aktualisiert !

Ein Demo basierend auf dem Archiv "Astro4.rar" ist angefügt.

zur Beachtung :
vor Abfragen des HolidayIndex (function GetHolidayIndex(Date : TDateTime; Land : TdeState): Integer
muss die Funktion (function GetSeason(Date : TDate): String; ) aufgerunfen werden,
da in der Funktion HolidayIndex Werte verwendet werden, die in der Funktion GetSeason erzeugt werden.

In der Demo werden nur Werte in der Schriftfarbe 'schwarz' aktualisiert.
Miniaturansicht angehängter Grafiken
vorschau1.jpg  
Angehängte Dateien
Dateityp: rar Astro4_Demo.rar (181,0 KB, 47x aufgerufen)
Markus H.

Geändert von markus5766h (21. Dez 2013 um 18:58 Uhr)
  Mit Zitat antworten Zitat