Forum: Object-Pascal / Delphi-Language
Prism
by Klaus01,
13. Apr 2006
hast Du Dir den Code von mir oben mal angeschaut und ausprobiert?
hier kommt er nochmals aber mit case anstatt if then else zur Spielmoduserkennung.
w20 := StrToInt(ptsw20.caption);
w50 := StrToInt(ptsw50.caption);
w100 := StrToInt(ptsw100.caption);
case s of
Forum: Object-Pascal / Delphi-Language
Prism
by Klaus01,
13. Apr 2006
w100 ist die Punktzahl und der Spielmodus?
oder ist w100 die Punktzahl und s=100 der Spielmodus?
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Prism
by Klaus01,
13. Apr 2006
w20 := StrToInt(ptsw20.caption);
w50 := StrToInt(ptsw50.caption);
w100 := StrToInt(ptsw100.caption);
if s=20 then
begin
if z > w20 then
begin
ptsw20.Caption:=inttostr(z);
rekw20.Caption:=(name.text);