Also das hattest du schonmal gemacht?
Delphi-Quellcode:
ShowMessage( // oder in Logdatei
FormatDateTime('dd.mm.yyyy hh:mm:ss.zzz', dp1.Date) + sLineBreak +
FormatDateTime('dd.mm.yyyy hh:mm:ss.zzz', Date) + sLineBreak +
FloatToStr(dp1.Date - Date) + ' = ' + IntToStr(CompareDate(dp1.Date, Date)));
if CompareDate(dp1.Date, Date) < 0 then
begin
...
code-optimierung ist aber immer erst mein letzter schritt vor den finalen release-tests --> hat mich das leben schmerzvoll gelehrt ...
Och, wenn man schonmal dabei ist.
Schmerzvoll?
Nja, wenn man damit rechtzeitig anfängt, dann gestaltet sich auch das Entwickeln und das Testen einfacher und schneller.
Immerhin hat man da weniger Code
Optimierungen, welche massig "mehrfachen" Code zusammenfassen, aber vorallem "übersichtlicher" gestalten, bringen weniger/einfacheren/ünersichtlicheren Code,
womit man dann auch weniger Code testen muß.
Und man könnte für diese AdjustLedText oder DateIsInThePast sogar einen UnitTest schreiben, damit ist es dann doch perfekt und es gibt niewieder Fehler.
