帮我看看这段代码

luosha80 2003-04-09 04:43:21
unit persrec;

interface
uses Classes, dialogs, sysutils;

type
TPersonRec = packed record //声明一个TPersonRec记录
FirstName: String[20];
LastName: String[20];
MI: String[1];
BirthDay: TDateTime;
Age: Integer;
end;

//创建一个TFileStream派生类TPersonRec
//TRecordStream从TFileStream派生而来,为TPersonRec进行文件的输入/输出
TRecordStream = class(TFileStream);
private
function GetNumRecs: Longint;
function GetCurRec: Longint;
procedure SetCurRec(RecNo: Longint);
protected
function GetRecSize: Longint;virtual;
public
function SeekRec(RecNo: Longint; Origin: Word): Longint;
function WriteRec(const Rec): Longint;
function AppendRec(const Rec): Longint;
function ReadRec(var Rec): Longint;
procedure First;
procedure Last;
procedure NextRec;
procedure PreviousRec;
property NumRecs: Longint read GetNumRecs;
//NumRecs显示了文件流中的记录数
property CurRec: Longint read GetCurRec write SetCurRec;
//CurRec反映了文件流中的当前记录
end;

implementation

function TRecordStream. 为什么我在这打点出不来我在上面声明的那些内容呢???
...全文
40 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
sysu 2003-04-09
  • 打赏
  • 举报
回复
TRecordStream = class(TFileStream); // 多了个分号
->
TRecordStream = class(TFileStream)
Frend 2003-04-09
  • 打赏
  • 举报
回复
去掉类名后面的分号
如下:TRecordStream = class(TFileStream);
改成TRecordStream = class(TFileStream)

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧