Witajcie. Mam problem z odwołaniami do tablicy rekordów w Pascalu.
Lazurus wywala mi błąd. Prosił bym o podpowiedź jak go skorygować.
//*** typy kolor,typ_figora,typ_karta***
type
typ_figora = (F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,FWALET,FDAMA,FKROL,FAS);
typ_kolor = (pik,kier,trefl,karo);
typ_karta = record
figora : typ_figora;
kolor : typ_kolor
end;
var
KARTA:array[1..52] of typ_karta;
PROCEDURE
//Procedura Tworzenia Kart
Tworzenie_Kart(var KARTA:typ_karta);
var jaki_kolor : typ_kolor;
jaka_figora : typ_figora;
i:integer;
................
...............
..............
KARTA[i].kolor := jaki_kolor; //ERROR Makao.lpr(72,11) Error: Illegal qualifier Makao.lpr(72,13) Fatal: Syntax error, ";" expected but "." found
KARTA[i].figora := jaka_figora;