帮我看看这段代码

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. 为什么我在这打点出不来我在上面声明的那些内容呢???
...全文
16 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sysu 2003-04-09
TRecordStream = class(TFileStream); // 多了个分号
->
TRecordStream = class(TFileStream)
回复
Frend 2003-04-09
去掉类名后面的分号
如下:TRecordStream = class(TFileStream);
改成TRecordStream = class(TFileStream)
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4923

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2003-04-09 04:43
社区公告
暂无公告