Counter Beginnt nicht wieder mit zählen

[Hallo_Thomas]

Zu 1.) die Ends hab ich gerad etwas nach oben verschoben, läuft aber alles trotzdem genauso

zu2.) und3.) Ich bin hier bei Delphi noch recht frisch dabei, sehen wir mal von der Schule ab ist das mein erstes Programm was ich machen will, also eigentlich sehe ich im moment nur das Ziel, der Weg? Wer weis.


:wall: Nun mal sehen,


Problem;

Ich wollte nicht das der Counter(so wie im Moment stehenbleibt, sondern er sollte die allten werte löschen, also sich auf null setzen und bei [1,3,7] wieder zählen von vorn.

Bsp.

Counter; 1---2---3---0---1---2---3---4---0

Item;-----1---1---7---6---1---7---7---3---6




P.S. es gibt auch Zahlen über 9

[leddl]

Zitat:

Zitat von Hallo_Thomas

Ich wollte nicht das der Counter(so wie im Moment stehenbleibt, sondern er sollte die allten werte löschen, also sich auf null setzen und bei [1,3,7] wieder zählen von vorn.

Bsp.

Counter; 1---2---3---0---1---2---3---4---0

Item;-----1---1---7---6---1---7---7---3---6

Ja und? Genau das macht der Code doch? :gruebel:
Gib doch mal eine Beispielreihe aus, die der Code bei dir jetzt ausspuckt. Dafür wäre es vielleicht praktisch, das ganze so umzubauen, daß du auch die Zwischenschritte angezeigt bekommst.

Delphi-Quellcode:

Counter := 0; 
for g := 0 to Anzeige.Items.Count-1 do 
begin
  If StrToInt(Anzeige.Items[g]) in [1,3,7] Then 
      inc(Counter) 
    else 
      If Anzeige.Items[g] = '6' Then 
        Counter := 0;
  ListBox1.Items.Add(Anzeige.Items[g] + ' ---> ' + IntToStr(Counter));
end;
Label6.Caption:= IntToStr(Counter) ;

Dann poste mal, was danach so alles in der ListBox steht.

Zitat:

Zitat von Hallo_Thomas

P.S. es gibt auch Zahlen über 9

OK, dann verwirf meine Änderungen. ;) (Bzw. mein zweites Codebeispiel im letzten Beitrag würde es auch tun.)

[Hallo_Thomas]

Jo, hab ich auch gerade festgestellt.


Mein Problem ergibt sich dadurch, dass ich meine aktuelen Zahlen oben erscheinen lasse.

Delphi-Quellcode:

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

Dass wollte ich auch so beibehalten

[freak4fun]

Hat sich das jetzt erledigt? :gruebel:

Wenn es dir nicht weh tut, kannst du dann mal den Code zeigen, der dein Problem jetzt löst? :mrgreen:

MfG
freak

[Catbytes]

*LOL* göttlicher Thread...

Kann es sein, daß er mit "Counter" eigentlich "g" meint?

[freak4fun]

Ich hoffe nicht. :mrgreen:

MfG
freak

[leddl]

So wie ich das verstehe, ist das Problem noch nicht gelöst. :gruebel:

Warum postest du deinen Code denn nur so sporadisch? Bei solchen Codeschnipseln kann man wirklich nur raten. :roll:

Du hast also für jede Zahl einen eigenen Button? Auf Klick wird die aktuelle Zahl oben eingefügt. Und wann führst du jetzt die Schleife aus?

Poste doch einfach mal ein bißchen Code, sonst macht das wirklich keinen Spaß, dir zu helfen. Ich kann halt wirklich nur rumraten. Und dafür ist mir meine Zeit echt zu schade.

@Catbytes:
Lies dir den Thread nochmal genau durch, dann wirst du bemerken, daß du so falsch liegst, wie man nur falsch liegen kann. Was würde denn das bringen? Sobald sich eine '6' in der ListBox befindet, haste ne astreine Endlosschleife. Sauber nachgedacht! :roll:

[Catbytes]

Zitat:

Zitat von leddl

@Catbytes:
Lies dir den Thread nochmal genau durch, dann wirst du bemerken, daß du so falsch liegst, wie man nur falsch liegen kann.

Schon klar, doch ist stolpere über diese Aussage:

Zitat:

Zitat von Hallo_Thomas

Er soll wieder bei der Zahl 6 wieder im Label eine 0 Zeigen und wenn eine 1,3 oder 7 erscheint wieder zählen anfangen zu zählen

Abgesehen vom Satzbau verstehe ich es so, daß, wenn eine 1,3 oder 7 kommt, die Schleife (warum auch immer) wieder von vorne beginnen soll. Aber ohne Code ist halt alles nur Kristallkugel...

Deine Geduld bewundere ich übrigens :mrgreen:

[leddl]

Hey, ich hab gestern bei nem ähnlichen Topic-Verlauf 100€ verdient. Ich hab halt noch Hoffnung! :lol:

Der Satzbau war - gerade am Anfang des Topics - wirklich furchtbar, und man mußte viel raten. Keine Frage. Allerdings finde ich es dann doch eigentlich recht einleuchtend (auch aus dem Code heraus), daß es mit dem Zählen eben um die Variable "Counter" geht, die das Vorkommen der Zahlen 1,3 und 7 zählen soll. Eine 6 setzt halt sozusagen nur den Zählerstand wieder auf 0. Eigentlich doch recht logisch. Das größere Problem war, ihm klarzumachen, daß sein Code doch eigentlich genau das macht, was er will. :mrgreen: Irgendwie wollte er das nicht einsehen. :lol:

[alcaeus]

Nun, vielleicht hilft es wenn man sich das urspruengliche Thema durchliest. Warum er einen neuen Thread eroeffnet hat - who knows...
Ich muss aber auch zugeben dass ich sein Problem mit dem Code nicht verstanden habe. Bei 1,3,7 zaehlen, bei 6 resetten. Wo ist das Problem? :gruebel:

Greetz
alcaeus