Hallo,

hab geich mal zwei fragen;

1. Wo müsste ci diesen befehl im Quelltexthinschreiben, damit er statt aus der Listbox(so wie im Moment), sondern aus der Stringlist
berechnet.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.AnzeigeDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var
  g, Counter: Integer;
begin
Counter := 0;
for g := Anzeige.Count-1 DownTo 0 do
  if StrToInt(Anzeige.Items[g]) in [1,3,10] then
    Inc(Counter)
  else if StrToInt(Anzeige.Items[g]) in [6] then
    Counter := 0;
    Label1.Caption:= IntToStr(Counter) ;
    end;

2.Benutzte im Moment "Stringlist.Add(a);", wie müsste er heissen wenn der Wert ganz oben in der Stringlist angeordnet werden soll?

1.) anstelle von
Anzeige.Items verwendest du dann
Stringlist.Strings und zu 2.
verwende anstelle von "add" einfach "insert" also "Stringlist.Insert"

Hab den Text im Moment unter der Listbox, wohin schreib den dann?



Stringlist.Strings

Anstelle von
StrToInt(Anzeige.Items[g]) das hier:
StrToInt(StringList1.Strings[g])

Bin noch nicht ganz vertraut mit allen begriffen;

kann ich es auch oanders hinschreiben, statt unter produce?

markieren

Delphi-Quellcode:

procedure TForm1.AnzeigeDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);

Damit die Berechnung unter der Listbox entlastet wird?