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?