Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Apr 2005
Ein langer Weg, aber Die Lösung ist nahe :thumb:
Jetzt zählt der Counter bei einer Zahl aber springt bei der 2. Zahl
sofort wieder zurück
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Apr 2005
Insgesamt werde der Code zulang aber im wesentlichen sieht er so aus
procedure TForm1.Button1Click(Sender: TObject);
Var a: String;
begin
a:='1' ;
Anzeige.Items.InsertObject(0, a,Pointer(clRed));
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Apr 2005
Jo, hab ich auch gerade festgestellt.
Mein Problem ergibt sich dadurch, dass ich meine aktuelen Zahlen oben erscheinen lasse.
procedure TForm1.Button4Click(Sender: TObject);
Var a:String;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Apr 2005
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;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Apr 2005
ein gedanklicher fehler von mir, da ich den Button "1" DRÜCKE der nun als 1 in der Listbox erscheint
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Apr 2005
Da ich ein Newbie bin, versuch ich ja alles so gut umzusetzen wie ich verstehe und ausdrücken kann:
Irgendwie führt diese Befehlszeile dann aus, selbst wenn ich die 1 drücke.
Ich meinte da müsste doch der Counter wieder zählen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
20. Apr 2005
Sorry, is schon spät und das Filmchen nebenbei hat sein übriges getan.
Also noch mal kurz zurück mein hauptproblem liegt wohl eindeutig in dieser Zeile würde ich sagen
else if StrToInt(Anzeige.Items) in then
Counter := 0 ;
Ich möchte einfach, dass wenn die 6 erscheint der Counter auf null schaltet und wenn nun wieder eine 1,3, oder 7 erscheint er wieder diese befehlszeile...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
19. Apr 2005
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hallo_Thomas,
19. Apr 2005
Ich habe folgendes Problem mit dem Quellcode; der Counter zählt zwar bei 1,3,7
aber er springt nicht auf null zurück bei 6 und beginnt auch nicht wieder von vorn zu zählen bei 1,3,7, wo liegt der Fehler?
begin
Counter := 0;
for g := 0 to Anzeige.Count-1 do
begin
if StrToInt(Anzeige.Items) in then
Inc(Counter)