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.

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?

TStringliste abfragen und Ergebnis in Label anzeigen

TStringliste abfragen und Ergebnis in Label anzeigen

Forumregeln