Counter Beginnt nicht wieder mit zählen

[Hallo_Thomas]

Insgesamt werde der Code zulang aber im wesentlichen sieht er so aus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var a: String;
begin
a:='1' ;
Anzeige.Items.InsertObject(0, a,Pointer(clRed));
end;

procedure TForm1.Button3Click(Sender: TObject);
Var a:String;
begin
a:='3' ;
Anzeige.Items.InsertObject(0, a,Pointer(clRed));
end;


procedure TForm1.Button5Click(Sender: TObject);
Var a:String;
begin
a:='5' ;
Anzeige.Items.InsertObject(0, a,Pointer(clRed));
end;

procedure TForm1.Button6Click(Sender: TObject);
Var a:String;
begin
a:='6' ;
Anzeige.Items.Insert(0, a);
end;

procedure TForm1.Button7Click(Sender: TObject);
Var a:String;
begin
a:='7' ;
Anzeige.Items.InsertObject(0, a,Pointer(clRed));
end;


procedure TForm1.NeustartClick(Sender: TObject);
begin
Anzeige.Items.Clear;
end;

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


    begin
    with Control as TListBox do
    begin
    Canvas.FillRect(Rect);
    Canvas.Font.Color := TColor(Items.Objects[Index]);
    Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
    end;
begin
Counter := 0;
for g := 0 to Anzeige.Count-1 do
begin
if StrToInt(Anzeige.Items[g]) in [1,3,7] then
Inc(Counter)
else if StrToInt(Anzeige.Items[g]) in [6] then
Counter := 0;
end;
end;
Label6.Caption:= IntToStr(Counter) ;





end;
end. ;

P.S. Im Orginal gibts noch mehr Zahlen

Das Problem ist, das ich möchte das oben in der Listbox die neuen Zahlen erscheinen, dadurch Funktioniet der Counter nicht so wie er sollte

[Grumble]

hi,

irgendwie fehlen da dateien in deiner zip datei, wenn ich mich nicht irre
:)

[leddl]

Naja, wichtig is ja eigentlich im Moment erstmal die exe.

Und ich kann wieder mal nur sagen, daß selbst in diesem Testprogramm der Algorithmus genau das macht, was du programmiert hast, Hallo_Thomas...

Betrachte diese 2 Fälle:

1. Gebe ich als erstes eine 6 ein, ist Counter immer 0, da die ListBox eben von oben nach unten durchgegangen wird. Und da das als erstes eingegebene Element eine 6 ist, und dieses Element bei der Eingabe neuer Zahlen immer das letzte Element bleibt, wird nach der Schleife "Counter" immer 0 sein, da eben als letztes eine 6 gefunden und Counter auf 0 gesetzt wird.
2. Geben ich als erstes (und vielleicht noch als 2., 3., ...) eine 1,3 oder 7 ein, stehen die immer ganz unten in der ListBox. Daher zeigt Counter immer an, wieviele 1er, 3er oder 7er eingegeben wurden, bis die erste 6 kam.

Du siehst also, so betrachtet macht dein Code, was du willst. ;)
Hättest du mal früher etwas mehr gepostet, dann hätte man dazu auch gleich mehr sagen können. Das jetzt mal nur als Tip für die Zukunft. :mrgreen:

Jetzt zur Lösung:
Ich gehe mal davon aus, daß du willst, daß dir angezeigt wird, wieviele 1er, 3er und 7er in der ListBox über der letzten 6 stehen, oder? Also, wieviele seit der letzten 6 eingegeben wurden?
Dann mußt du natürlich die ListBox auch rückwärts durchgehen:

Delphi-Quellcode:

Counter := 0; 
for g := Anzeige.Count-1 to 0 do 
  if StrToInt(Anzeige.Items[g]) in [1,3,7] then 
    Inc(Counter) 
  else if StrToInt(Anzeige.Items[g]) in [6] then 
    Counter := 0; 
Label6.Caption:= IntToStr(Counter) ;

PS: Gewöhn dir mal an, deinen Code etwas besser zu formatieren. Bei dir muß man immer suchen, was wozu gehört. Wenn du an bestimmten Stellen mit TAB etwas einrückst, macht das den Code viel lesbarer. Das erleichtert auch die Programmierung erheblich.

[Hallo_Thomas]

Ein langer Weg, aber Die Lösung ist nahe :thumb:

Jetzt zählt der Counter bei einer Zahl [1,3,7] aber springt bei der 2. Zahl[1,3,7]
sofort wieder zurück

[Grumble]

[edit] geloescht [end edit] sorry

[leddl]

:pale: :oops: *hust* *hust* Da muß der Hausgeist am Werk gewesen sein, ich war das nämlich bestimmt nicht. *hust* *hust*
Denn natürlich muß da anstatt "From ... To ..." "From ... DownTo ..." stehen.

...........

Wie gesagt, ich war das nicht! Pöhser Hausgeist! :witch: