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

[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]