const
First = '<<';
Next = '>';
Prev = '<';
Last = '>>';function TDataAccess.RecordLeader(const sign :string):Integer;
begin
case sign of //这里是错误,错误代码如下
First : self.Query.First;
Prev : self.Query.Prior;
Next : self.Query.Next;
Last : self.Query.Last;
end; Result := Query.RecordCount;
end;
//****************************************************************************
[Error] Database.pas(53): Ordinal type required
[Error] Database.pas(54): Incompatible types: 'Integer' and 'String'
[Error] Database.pas(55): Incompatible types: 'Integer' and 'Char'
[Error] Database.pas(56): Incompatible types: 'Integer' and 'Char'
[Error] Database.pas(57): Incompatible types: 'Integer' and 'String'
[Fatal Error] myComBox.dpr(13): Could not compile used unit 'Database.pas'
First = '<<';
Next = '>';
Prev = '<';
Last = '>>';function TDataAccess.RecordLeader(const sign :string):Integer;
begin
case sign of //这里是错误,错误代码如下
First : self.Query.First;
Prev : self.Query.Prior;
Next : self.Query.Next;
Last : self.Query.Last;
end; Result := Query.RecordCount;
end;
//****************************************************************************
[Error] Database.pas(53): Ordinal type required
[Error] Database.pas(54): Incompatible types: 'Integer' and 'String'
[Error] Database.pas(55): Incompatible types: 'Integer' and 'Char'
[Error] Database.pas(56): Incompatible types: 'Integer' and 'Char'
[Error] Database.pas(57): Incompatible types: 'Integer' and 'String'
[Fatal Error] myComBox.dpr(13): Could not compile used unit 'Database.pas'
.)
A subrange having the form First..Last, where First and Last both satisfy the criterion above and First is less than or equal to Last.A list having the form item1, ..., itemn, where each item satisfies one of the criteria above.