[Pascal Error] hra.pas(181): E2026 Constant expression expected
Kód:
for k := 0 to High(Kartove_pole[j]) do
begin
if (j=1) OR (j=3) then
if pocet_kariet=k then
C.Draw(sirka_kariet+(k-1)*60+80, vyska_kariet, Karticka.Karta[Kartove_pole[j,k]])
else
C.Draw(sirka_kariet+k*60, vyska_kariet, Karticka.Karta[Kartove_pole[j,k]])
else
if pocet_kariet=k then
C.Draw(sirka_kariet, vyska_kariet+(k-1)*60+80, Karticka.Karta[Kartove_pole[j,k]])
else
C.Draw(sirka_kariet, vyska_kariet+k*60, Karticka.Karta[Kartove_pole[j,k]]);
end;
ten riadok kde vypisuje chybu je ten end posledny
pole Karta je pole obrazkov v poly Kartove_pole mam hodnoty podla ktorych sa zobrazuju rozne obrazky Ak bude mat niekto zaujem pomoct a bude potrebovat cely unit nech napise na icq alebo pm bol by som za pomoc moc vdacny
