Odwołania do tablicy rekordów

0

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;          
0

parametr i zmienna globalna maja ta sama nazwe.
chcesz sie odwolac do zmiennej, a kompilator do parametru.

//btw... "figura" a nie "figóra"!

0

Nie wiem czy dobrze zrozumiałem bo jestem początkującym.
Zrobiłem tak i nadal ten sam błąd

//*** 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_a:typ_karta);
  var jaki_kolor : typ_kolor;
      jaka_figora : typ_figora;
      i:integer;        
................
...............
..............
KARTA_a[i].kolor := jaki_kolor; //ERROR Makao.lpr(72,11) Error: Illegal qualifier Makao.lpr(72,13) Fatal: Syntax error, ";" expected but "." found
 
KARTA_a[i].figora := jaka_figora;   
0

ehh.. czy "KARTA_a" jest tablica? nie. a odwolujesz sie do niej jak do tablicy.
poczytaj o tablicach najpierw - w internecie masz mase informacji na ten temat.

1 użytkowników online, w tym zalogowanych: 0, gości: 1