Turbo pascalban ha bevezetek egy record változót azt hogyan kell a procedure utáni zárójelben definiálni?
Const N=10;
Type asd=record
nev:string;
kor:integer;
end;
var x:array[1..n] asd
procedure (var ????????????????)
begin
for i:=1 to n do
begin
writeln('add meg a neved')
readln(asd.nev);
end;
a végét rosszul írtam
writeln('add meg a neved')
readln(asd[i].nev);
end;
end;
válasza:procedure rekordbeolvas(var egyrekord: asd);
begin
write("Kérem a nevet: ");
readln(egyrekord.nev);
write("Kérem a korát: ");
readln(egyrekord.kor);
end;
ezt írja Error: No default property available
You are trying to access a default property of a class, but this class (or one of its ancestors) doesn’t have a default property.
válasza:úgy ahogy egy sorral fölötte csináltad
var x:array[1..n] asd
ez nem jó?
és akkor x[i].nev:= stb.
válasza:Akkor így csináld:
program akarmi;
const n=10;
type
asd=record
nev:string[50];
kor:byte;
end;
TTomb=Array[1..n] of asd;
procedure tombbeolvas(var x: TTomb);
var i: byte;
begin
for i:=1 to n do
begin
write('Add meg a neved: ');
Readln(x[i].nev);
end;
end;
var x : TTomb;
begin
tombbeolvas(x);
end.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!