hallo
rufe in einer prozedur eine andere auf die einen integerwert als pParameter hat jetzt bekomme ich aber den Fehler Konstantenausdruck erforderlich.
Wieso? Habe jetzt schon den Parameter als konstante definiert und trotzdem ändert es nichts ?
kann mir einer helfen?
Delphi-Quellcode:
procedure TForm1.butStartClick(Sender: TObject);
var i ,stand, n: integer;
begin
Case rgArt.ItemIndex of
0,1: stand := 0;
2:
case gartx01.ItemIndex of
0: stand := 201;
1: stand := 301;
2: stand := 501;
end;
3: stand := 0;
Game(15); //hier kommt der fehler
4: stand := 1;
Game(1); //und hier kommt der fehler
end;
....
procedure TForm1.Game(const startvalue : integer);
var value,i : integer;
field : TField;
begin
value := startvalue ;
field.anz := 0;
for i:=0 to Anz-1 do
begin
while value < 22 do
begin
field.field := value;
aspieler[i].field[(value-1)] := field;
inc(value);
end;
end;
end;