Nimm-Spiel

[ATSV]

dann hab ich mich etwas unpraktisch ausgedrückt
ich meinte eigentlich das es meiner meinung nach im quelltext schöner aussieht

[BullsEye]

Wenns funktioniert und gut ist, ist das optische Aussehen doch nicht so wichtig ;)

[STS301]

wenn es schöner ist, ist ein längerer Code ein wenig übersichtlicher
zb.

Delphi-Quellcode:

i:= i + 1 ;
c:= c - 1;
a:= a + 1 ;
b:= b + 1;
h:= h + 1 ;
x:= x - 1;

ist denke ich weniger überischtlicher als

Delphi-Quellcode:

inc(i);
dec(c);
inc(1);
inc(b);
inc(h);
dec(x);

edit: na klar :wall: :wall: :wall: :wall: :wall:

[DeddyH]

Zumal Letzteres gar nicht funktionieren würde :zwinker:
Aber nun sollte das genug erläutert sein, gell?

[Namenloser]

Zitat:

Zitat von STS301

Delphi-Quellcode:

i:= inc(i);
c:= dec(c);
a:= inc(1);
b:= inc(b);
h:= inc(h);
x:= dec(x);

Was du machst, geht gar nicht. Inc und dec sind keine Funktionen.

Wie auch immer, ich denke, dass diese Diskussion dem fragesteller nicht wirklich hilft :wink:

[edit]kein kasten...[/edit]

[ATSV]

Delphi-Quellcode:

inc(i);
dec(c);
inc(1);
inc(b);
inc(h);
dec(x);

reicht vollkommen aus

[Kollege_Bratwurst]

Tut mir wirklich leid, aber ich hab immer noch kein plan wovon ihr redet xD unser lehrer ist nicht grade der beste und wie gesagt ich hab delphi erst seid ca. 3 wochen^^ deswegen hab ich kein plan wie ich das in das programm einfügen soll :P außerdem handelt es sich bei den gegenständen einfach nur um kleine bilder, die bei einem klick weggehen, dass hatte ich vergessen zu erwähnen... tut mir echt leid wenn ich mich da so doof anstelle aber hinsichtlich delphi bin ich wohl noch ein newbie^^

[DeddyH]

Ist doch ganz einfach: Du hast X Bilder. Beim Klick auf den Button verschwindet ein Bild, also zählst Du von X eins runter. Wenn X 0 ist, sind alle Bilder unsichtbar.

[Kollege_Bratwurst]

Ja das habe ich schon verstanden, aber das muss ich ja irgendwie in Programmiersprache fassen. Also meine Bilder haben die Namen ImNimm1 bis ImNimm16... Also 16 Bilder, aber wie soll ich das jetzt in das Programm schreiben?? Tut mir wirklich leid wenn ich mich so naiv anstelle :duck:

[DeddyH]

Zitat:

Die erste Aufgabe bestand darin, die Buttons so zu programmieren das immer 1 Gegenstand pro Click verschwindet und wenn der letzte Gegenstand der Reihe weg war sollte auch der Button verschwinden. Soweit kein Problem, dass habe ich geschafft.

Dann kriegst Du den Rest auch noch hin.
Am Anfang definierst Du Dir eine sogenannte globale Variable "Gesamt".

Delphi-Quellcode:

implementation

var Gesamt: integer = 15; //hier hin, direkt unter implementation

Und im OnClick der Buttons fügst Du jeweils eine Zeile ein, die Gesamt herunterzählt.

Delphi-Quellcode:

Gesamt := Gesamt - 1;

Nun prüfst Du ab, ob Gesamt 0 ist und reagierst dann darauf.

Delphi-Quellcode:

if Gesamt = 0 then
  ShowMessage('Alle weg'); //oder was Du sonst so ausgeben möchtest

Versuch' s mal und wenn Du nicht weiterkommst, fragen.