type
student=record
mytextfile=file of student;
num:integer;
name:string;
age:byte;
sex:boolean;
birthplace:string;
end;var
mytextfile:file of student;
begin
assignfile(mytextfile,'D:\myfile\file.txt');
Closefile(mytextfile);
end.
mytextfile=file of student; 这有什么问题?
student=record
mytextfile=file of student;
num:integer;
name:string;
age:byte;
sex:boolean;
birthplace:string;
end;var
mytextfile:file of student;
begin
assignfile(mytextfile,'D:\myfile\file.txt');
Closefile(mytextfile);
end.
mytextfile=file of student; 这有什么问题?
TStudent = record
num :integer;
name :string;
age :byte;
sex :boolean;
birthplace:string;
end;不用那句
没见过这种写法的
TStudent = record
num :integer;
name :string;
age :byte;
sex :boolean;
birthplace:string;
end; 不写那句
但到var
mytextfile:file of student;
会报错
student=record
mytextfile=file of student;
num:integer;
name:string[10];
age:byte;
sex:boolean;
birthplace:string[20];
end; var
mytextfile:file of student;
begin
assignfile(mytextfile,'D:\myfile\file.txt');
Closefile(mytextfile);
end. 着就可以了
为什么string[10] 要把占的字节数标出了呢?