Witam
moje pytanie jak w temacie
Jak sie odwołać do rekordu w rekordzie ??
np
{
type data = record
rok : Integer;
miesiac: 1..12;
dzien: 1..31;
end;
}
type personalia = record
nazwisko : string[20];
imie1: string[15];
nazwisko_panienskie: string[20];
imie_ojca: string[15];
//data_urodzenia: data;
miejsce_urodzenia: string[20];
stan_cywilny:string[15];
miejsce_zamieszkania: string[20];
end;
var
dane:personalia;
katalog: file of personalia;
begin
Assign(katalog,'Record.txt');
rewrite(katalog);
writeln;
write('nazwisko: ');
readln(dane.nazwisko);
write('imie1');
readln(dane.imie1);
write('nazwisko_panienskie');
readln(dane.nazwisko_panienskie);
write('imie_ojca');
readln(dane.imie_ojca);
//write('Data_urodzenia:' );
//readln(dane.data);
write('Miejsce urodzenia: ');
readln(dane.miejsce_urodzenia);
write('Stan cywilny: ');
readln(dane.stan_cywilny);
write('miejsce zamieszkania: ');
readln(dane.miejsce_zamieszkania);
Write(katalog,dane);
close(katalog)
end.
Chiałbym sie odwołać do rokurdu data przywołałem go w rekordzie personalia i chcialbym go teraz uzyc w głownym bloku programu.
Zastosowałem klamry oraz slasche tzn komentarze bez nich program nie działa.
Pomocy