关于数据类型的问题
BS 2002-07-16 02:47:34 unit Unit2;
interface
uses Classes, dialogs, sysUtils;
type
TPersonRec = packed record
Name:string[20];
ID:string[8];
Sex:string[1];
Age:integer;
end;
TRecordStream = class(TFileStream)
private
function GetNumRecs:Longint;
function GetCurRecs:Longint;
procedure SetCurRecs(RecNo:Longint);
protected
function SetRecSize: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 NumRec:Longint read GetNumRecs;
property CurRec:Longint read GetCurRecs write SetCurRecs;
end;
大家注意这里
function WriteRec(Const Rec):Longint;
function AppendRec(Const Rec):Longint;
function ReadRec(var Rec):Longint;
为什么Rec没有类型,但是运行又不会有错误