variable zahl eintäge in tlistbox oder advsmoothlistbox

[Marcoo]

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

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;

aber ich möchte nicht da eine 0 haben sondern so das er das bei 0-100 macht und es geht bestimmt kürzer als immer hinternander das machen nur mit einer zahl mehr
ihr könnt mir das auch anhand einer normalen listbox erklären:-D

[toms]

Da bietet sich z.B. eine For-Schleife an.

[Sir Rufo]

Huch, so macht man das eigentlich gar nicht ;)

Die Daten hält man in einer Liste

Delphi-Quellcode:

TDataItem = class
property Geburtstag : TDateTime;
property Email : string;
end;

TDataList = TObjectList< TDataItem >;

Die Einträge aus dieser Liste werden dann in der ListBox angezeigt.
Irgendwelche Arbeiten werden dann direkt mit den ListenEinträgen der TDataList erledigt.

Die ganze Logik baut man um die Daten und nicht um die Anzeige.

[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

[Sir Rufo]

Vor allem, weil Delphi 2010 einen Code-Formatter hat, wo das mit einer Tasten-Kombination erledigt ist

Code:

Strg-D

[Marcoo]

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

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;
    if AdvSmoothListBox1.Items[1].Info = Datetostr(Date) then
    begin
      Timer1.Enabled := False;
      beep;
      showmessage(AdvSmoothListBox1.Items[1].Caption + ' hat heute Geburtstag');
      if AdvSmoothListBox1.Items[1].ButtonCaption <> 'E-Mail Adresse' then
      begin
        mail := 1;
        Action3.Execute;
      end;
    end;

[Sir Rufo]

Was erwartest du?

Du formatierst deinen Code und alles ist gut?

Bitte benutze doch die Delphi-Tags

[DeddyH]

Delphi-Quellcode:

for i := 0 to AdvSmoothListBox1.Items.Count - 1 do
  begin
    if AdvSmoothListBox1.Items[i].Info = Datetostr(Date) then
      ...

[Marcoo]

Ich glaub so funktionierts an ne for schleife hab ich garnicht gedacht Fail

Delphi-Quellcode:

var I:integer;
begin
  try
  for I := 1 to advsmoothlistbox1.Items.Count -1 do begin
    if AdvSmoothListBox1.Items[i].Info = Datetostr(Date) then
    begin
      Timer1.Enabled := False;
      beep;
      showmessage(AdvSmoothListBox1.Items[i].Caption + ' hat heute Geburtstag');
      if AdvSmoothListBox1.Items[i].ButtonCaption <> 'E-Mail Adresse' then
      begin
        mail := i;
        Action3.Execute;
      end;
    end;

*edit*0ist besser ok Danke

[DeddyH]

Und was ist mit dem ersten Eintrag? Und was passiert, wenn überhaupt keine Einträge vorhanden sind? Übrigens: verwende doch Delphi-Tags anstatt Code-Tags.

[edit] Aha, selber gemerkt :) [/edit]

[Marcoo]

sry aber was sind delphi tags und was sind code tags

[fkerber]

Hi,

[delphi][/delphi] sind die Delphi-Tags.
Das bewirkt die schöne Darstellung des Codes im Beitrag - kann auch über das Delphi-Symbol im Editor eingefügt werden.

LG, Frederic

[Marcoo]

ahhh Ok bin neu hier im forum

Delphi-Quellcode:

So oder ?

[fkerber]

Hi,

kein Problem - ja, genau so.


LG, Frederic

[Marcoo]

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

Delphi-Quellcode:

var
  jahr, monat, tag: Word;
begin
  DecodeDate(Date, jahr, monat, tag);
  DatePicker.Date := Date;
  DatePicker.Calendar.MinDate := Date;
  DatePicker.Calendar.MaxDate := Date + 365;

und die tage bis zu dem im datepicker angegeben tag berechnet er mit

Delphi-Quellcode:

AdvSmoothListBox1.Items[i].Notes := inttostr
(DaysBetween(strtodate(AdvSmoothListBox1.Items[i].Info), now))
+ ' Tage noch';

[fkerber]

Hi,

mach am Besten eine neue Frage auf - das erhöht die Übersichtlichkeit.


LG, Frederic

[Marcoo]

ok
mach ich

http://www.delphipraxis.net/156327-g...ml#post1064606