Type
TStudent = record
name: string;
stuno: integer;
......
end;
var
myTable: TTable;
aSt: array[1..64] of TStudent;
begin
with myTable do
begin
Open;
aSt[1].Name := FieldByName('name').AsString;
...
Close;
end;
end;
Type
Tstudent=record
name:string;
stuno:int;
......
end;
tstuds:=array [1..32] of tstudent;
var
glass1:tstuds;
begin
glass1[1].name:='corao';
glass1[2].stuno:=1;
......
end;