Type o = object
a : longint; end; |
will trigger this error.
type a = (A_A,A_B,A_E:=6,A_UAS:=200);
type a = (A_A,A_B,A_E:=6,A_UAS:=4); |
The second declaration would produce an error. A_UAS needs to have a value higher than A_E, i.e. at least 7.
Type :
Tclass = Class of Tobject; Var C : TClass; begin ... C.free |
Free is not a class method and hence cannot be called with a class reference.
class procedure tobject.x;
begin free |
Because free is a normal method of a class it cannot be called from a class method.
tmyobject = class
i : integer; property x [i : integer]: integer read I write i; |
+, -, *, /, =, >, <, <=, >=, is, as, in, **, :=
|
Var Z : Longint;
X,Y : Longint absolute Z; |
Procedure X;
var p : longint absolute x; |
Procedure X;
var p : longint absolute x; |
Type ParentClas = Class;
ChildClass = Class(ParentClass) ... end; |
Where ParentClass is declared but not de ned.
const
p : procedure;stdcall=nil; p : procedure stdcall=nil; |
type
TMyObject = class(TObject, IDispatch) function IUnknown.QueryInterface=MyQueryInterface; .... |
and the interface before the dot not listed in the inheritance list.
...
procedure p1; label l1; procedure p2; begin goto l1; // This goto ISN'T allowed end; begin p2 l1: end; ... |