Frage zur TListBox bzw. Anzahl der Zeilen vorgben....

[jupzup]

Hallo zusammen,
ich bin absoluter Anfänger und hab ein kleines Problem.

Ich nutze eine TListBox wo dynamisch also unterschiedliche Einträge in einer Schleife eingetragen werden. Wie kann ich zb. die maximale Anzahl der zu Schreibenden Zeilen einstellen oder aber das die vorhandene Zeilen einfach überschrieben werden ??

Zur Zeit sieht meine Schleife so aus:

Delphi-Quellcode:

for i:= 0 to Alarmstatus -1 do begin
 If Group.ItemValue[i] = True then
    AlarmCount:= AlarmCount +1;
 if Group.ItemValue[i]= True then MsgLog.Items.Add(Itemlist1.Items[i].Caption + '        Störung liegt an.');
end;

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, jupzup.

Wenn du die Zahl der Items in der ListBox überwachst, dann könnte es so funktionieren:

Delphi-Quellcode:

begin
  for i:= 0 to Pred(Alarmstatus) do
  begin
    if Group.ItemValue[i] then
    begin
      Inc(AlarmCount);
      with MsgLog do
      begin
        while Succ(Items.Count) >= VisibleItemCount do
          Items.Delete(0);
        Items.Add(ItemList1.Items[i].Caption + '        Störung liegt an.');
      end;
  end;
end;

Getippt und nicht getestet.

Freundliche Grüße vom marabu