Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
26. Apr 2023
Och, kann schonmal passieren.
Und vielleicht will man nicht mehr erinnert werden?
Mann hat es ja nicht so leicht, wie die Anderen, denn wie heißt es gerne mal?
"Die besten 10 Jahre der Frau sind die zwischen 29 und 30."
Aber ja, natürlich kommt es drauf an.
Hier hatte sich auch mal wer gewünscht, dass beim Einloggen "alle" die heutigen Geburtstage sehen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
24. Apr 2023
Und auch das Doppelte rauswerfen.
if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) and (Geburtstagheute = False) then
begin
//lblAlter.Font.Color := clRed;
MessageDlg('Patient / Klient / Kunde hat heute Geburtstag.?', mtConfirmation, ,0);
Geburtstagheute := True;
end
;
// else
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
24. Apr 2023
and not Geburtstagheute :zwinker:
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
23. Apr 2023
AfterScroll bzw. AfterOpen (oder sowas)
und das erste Open ins OnShow.