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; 这有什么问题？

您好,

type
student = record
.
.
.
end;
這一段是在定義 student

您的紅字 mytextfile=file of student; 出現在 自身的定義中,
這是 遞迴 (recursive) 式的定義,

遞迴可以用來定義一個 function, 因為 function 還可以有程式碼來結束遞迴.
定義 record 應該不可以用遞迴, 因為沒有辦法 "出來".

我記得這是不被允許的語法. (我只是判斷, 沒有實測)
紅色那句是多餘的.
參考一下 LO.



===================引 用 zhucezhennan2008 文 章===================
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; 这有什么问题？

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄