Stack overflow

[gfaw]

Hi Christian,

schönen Gruß an die Waterkant. Hier im Südwesten schneit es gerade. Ich habe inzwischen den Debugger eingesetzt und habe die Stelle entdeckt, wo es zur einer "Speicherschutzverletzung" kommt. Der Debugger bleibt dann an der ersten Stelle der folgende Funktion stehen :

Delphi-Quellcode:

const
  EXPIRATION_DATE = '31.12.2004';

begin
  Application.Initialize;
  if now>StrToDate(EXPIRATION_DATE) then begin
    MessageDlg('Dieses Programm ist nur bis zum '+EXPIRATION_DATE+' lauffähig.'+#13+#10+
               'Bitte wenden Sie sich an lohn-ag.de, um ein Update zu erhalten!',
               mtError,[mbOK],0);
    Application.Terminate;
  end;
  if now>StrToDate(EXPIRATION_DATE)-14.0 then begin
    MessageDlg('Achtung, dieses Programm ist nur bis zum '+EXPIRATION_DATE+' lauffähig.'+#13+#10+
               'Bitte wenden Sie sich rechtzeitig an lohn-ag.de, um ein Update zu erhalten!',
               mtInformation,[mbOK],0);
  end;
  Application.Title := 'ZEIT@LOHN';
  Application.CreateForm(TfmMain, fmMain);
  Application.CreateForm(TfmKonfiguration, fmKonfiguration);
  Application.CreateForm(TfmMandant, fmMandant);
  Application.CreateForm(TfmSelectMitarbeiter, fmSelectMitarbeiter);
  Application.CreateForm(TqrStammdaten, qrStammdaten);
  Application.Run;
end.

Ich könnte natürlich den Quatsch abklemmen, aber ein Chef ist dann sehr böse. Ist dort etwas erkennbar ?

Ciao

Alf


[edit=Admin]Code-Tags eingefügt und Doppelposting entfernt. Mfg. Daniel[/edit]