variable zahl eintäge in tlistbox oder advsmoothlistbox

[fkerber]

Hi,

darüberhinaus würde ich dir dringend empfehlen, deinen Code besser zu strukturieren - z.B. durch Einrückungen.

Folgendes finde ich viel übersichtlicher und somit besser verständlich:

Delphi-Quellcode:

if advsmoothlistbox1.Items[0].Info = DatetoStr(Date) then 
  begin
    timer1.Enabled:=False;
    beep;
    showmessage(advsmoothlistbox1.Items[0].Caption+' hat heute Geburtstag');
    if advsmoothlistbox1.Items[0].ButtonCaption <> 'E-Mail Adresse' then 
      begin
        mail := 0;
        action3.Execute;
      end;
  end;

LG, Frederic