Forum: Sonstige Fragen zu Delphi
by Marcoo,
28. Nov 2010
ok
mach ich
http://www.delphipraxis.net/156327-geburtstag-erinnerer-tage-eingeben.html#post1064606
Forum: Sonstige Fragen zu Delphi
by Marcoo,
28. Nov 2010
Aber eine sache hab ich noch selbes programm anderer punkt soll ich ein neues thema machen oder nicht
weil das programm ist ja ein Geburtstags errinerer und da mus man ja logischer weise den tag des geburtstags eintragen ich hab das nur halb hingekriegt also es geht aber nur1 mal also kann ich den 28.11.2010 eintragen aber am 28.11.2011 wird er mich nicht errinern
var
jahr, monat, tag: Word;...
Forum: Sonstige Fragen zu Delphi
by Marcoo,
28. Nov 2010
ahhh Ok bin neu hier im forum
So oder ?
Forum: Sonstige Fragen zu Delphi
by Marcoo,
28. Nov 2010
sry aber was sind delphi tags und was sind code tags
Forum: Sonstige Fragen zu Delphi
by Marcoo,
28. Nov 2010
Ich glaub so funktionierts an ne for schleife hab ich garnicht gedacht Fail
var I:integer;
begin
try
for I := 1 to advsmoothlistbox1.Items.Count -1 do begin
if AdvSmoothListBox1.Items.Info = Datetostr(Date) then
begin
Timer1.Enabled := False;
beep;
showmessage(AdvSmoothListBox1.Items.Caption + ' hat heute Geburtstag');
Forum: Sonstige Fragen zu Delphi
by Marcoo,
28. Nov 2010
Ok dann müsste es so besser sein aber wie krig ich das hin das ich unendlich einträge haben kann und nicht nur wie in diesem falle 2
if AdvSmoothListBox1.Items.Info = Datetostr(Date) then
begin
Timer1.Enabled := False;
beep;
showmessage(AdvSmoothListBox1.Items.Caption + ' hat heute Geburtstag');
if AdvSmoothListBox1.Items.ButtonCaption <> 'E-Mail Adresse' then
...
Forum: Sonstige Fragen zu Delphi
by Marcoo,
28. Nov 2010
Hallo und schönen Sonntag Morgen
Ich hab Delphi 2010 und folgendes Problem
und zwar möchte ich mit einträgen in einer advsmoothtlistbox was machen das mach ich bis her so
if advsmoothlistbox1.Items.Info = DatetoStr(Date) then begin
timer1.Enabled:=False ;beep;showmessage(advsmoothlistbox1.Items.Caption+' hat heute Geburtstag');
if advsmoothlistbox1.Items.ButtonCaption <> 'E-Mail Adresse'...