Würfel Zähler

lbstylez · Hält's aus hier Beiträge: 5

moin moin,
ich wollte ein programm schreiben welches die augenzahlen von einem Würfel zählt und zwar sollte z.B. bei label1 dann stehen wenn die zahl 1 kommt : 1 beim zweiten mal das zwei usw. also ein Würfelaugen Zähler jedoch weiss ich nicht wie ich genau das mit label1.caption machen soll damit er es zählt.

Moderiert von jasocul: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mo 03.03.2008 um 16:19

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

markieren

Delphi-Quelltext

1:
2:
3:
4:

case Wuerfel of
  1: Label1.Caption := IntToStr(1+StrToInt(Label1.Caption));
  2:; //usw usf
end;

äußert unschön, sollte aber funzen, besser wäre die Verwendung von Arrays

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

jaenicke · Verfasst: Mo 03.03.08 16:52

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  CurrentLabel: TLabel;
begin
  CurrentLabel := FindComponent('Label' + IntToStr(Wuerfel));
  CurrentLabel.Caption := IntToStr(StrToInt(CurrentLabel.Caption) + 1);
end;

So braucht man keine direkte Unterscheidung, allerdings müssen die Label Label1 bis Label6 heißen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme