TStringliste abfragen und Ergebnis in Label anzeigen

[Hallo_Thomas]

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.

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?

[SirThornberry]

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

[Hallo_Thomas]

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



Stringlist.Strings

[Matze]

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

[Hallo_Thomas]

Bin noch nicht ganz vertraut mit allen begriffen;

kann ich es auch oanders hinschreiben, statt unter produce?

Delphi-Quellcode:

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

Damit die Berechnung unter der Listbox entlastet wird?