[Open-Source / Fun] - Desktop Clock

[turboPASCAL]

Hi,

Nach einer Programmidee von mir habe ich aus nicht auszuhaltender
Langeweile und Programierwahn "schnell" mal ein kleines Programm
gestrickt.

• Was machts:
  - 'ne Uhrzeit auf dem Desktop.
  
  
  Features:
  - nonVCL - Programierung
  - eine eigene Mini - GDIPlus Unit (dynamisch geladene Functionen und Proceduren) [MiniGDIPlus.pas]
  - Positionierung (Verschieben) per Maus
  - Exit Menue mit links klick der Maus
  - speichern der akt. Position in einer Ini-Datei im Programmordner
  - zeigt die aktuelle Uhrzeit und Datum an
  
  
  Screenshot:
  - macht euch selbst einen.
  
  
  Programmierstatus:
  - Abgeschlossen, Weiterentwicklung vorerst eingestellt
  
  Sinn & Zweck:
  - keine Ahnung
  
  Was kostet der Spass:
  - ~1,25h Entwicklungszeit des Programierers

[himitsu]

Was funktioniert denn nicht? Fehlermeldungen?

[schlagzu]

Ja, es haut ungefähr 30 mal Runtime Error 201 (Sehe Screen) und geht zu.

MfG schlagzu

[himitsu]

Runtime Error 201 > reRangeError > ERangeError > Indexfehler z.B. in einem Array

Nja, da hier jemand zwanghaft auf die böse SysUtils verzichten wollte, gibt es zwar eine kleiner Datei, aber dafür eben auch keine "ordentlichen" Exceptions und auch keine Exceptionbehandung.
Ergebnis: Es raucht gleich ab und man weiß nicht wo ... nichtmal das Debuggen ist schön, da der Debugger auf Exceptions und nicht auf diesen Systemfehler reagiert.


Der Fehler:

Delphi-Quellcode:

const
  dow: array [1..7] of String = (
    'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag', 'Sonntag');

function MakeDate: String;
begin
  // GetDateTime;

  Result := format('%s, %d. %s %d',
    [dow[lpSysTime.wDayOfWeek], lpSysTime.wDay, moj[lpSysTime.wMonth], lpSysTime.wYear]);
end;

lpSysTime.wDayOfWeek zählt aber von 0 bis 6 (Sonntag = Wochenanfang) und das ist schon immer so, es knallt also überall und in jeder Windowsversion, wenn gerade Sonntag ist.

Lösung:

Delphi-Quellcode:

  dow: array [0..6] of String = (
    'Sonntag', 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag');

Nachgesehn ... der 7. Okt. 2008 war ein Dienstag und da sich wohl niemand mehr bis zum / an einem Sonntag mit diesem Programm beschäftigt hat ........

[lbccaleb]

Danke himitsu, das wars...

Ich hab da gestern Nacht zwanghaft den Fehler bei Windows gesucht -.-

Nun gehts wieder....

[himitsu]

Was arbeitest du auch an einem Sonntag?
Hättest'e noch bis Montag gewartet, wäre der Fehler von selber verschwunden.

[Luckie]

Ein Grund könnte auch sein:

Zitat:

speichern der akt. Position in einer Ini-Datei im Programmordner

Sollte aber schon bei mir unter XP nicht funktionieren.

[himitsu]

Für ein "einmal ausprobieren"-Tool ist das ja OK, daß nirgendwo im System irgendwelche Daten rumliegen und dann zurückbleiben.
Wenn man diese Clock z.B. in den Programme-Ordner installieren will, dann hast du natürlich Recht.

[EWeiss]

Zitat von himitsu:

Was arbeitest du auch an einem Sonntag?
Hättest'e noch bis Montag gewartet, wäre der Fehler von selber verschwunden.

Was denn nu?
Sonntag oder SonTag ... hehehehe

gruss