|
@@ -695,7 +695,7 @@ uses
|
|
|
((p^.proptype^.deftype=setdef) and
|
|
((p^.proptype^.deftype=setdef) and
|
|
|
(psetdef(p^.proptype)^.settype=smallset)
|
|
(psetdef(p^.proptype)^.settype=smallset)
|
|
|
) or
|
|
) or
|
|
|
- assigned(propertyparas)
|
|
|
|
|
|
|
+ not(propertyparas^.empty)
|
|
|
) then
|
|
) then
|
|
|
Message(parser_e_property_cant_have_a_default_value);
|
|
Message(parser_e_property_cant_have_a_default_value);
|
|
|
{ Get the result of the default, the firstpass is
|
|
{ Get the result of the default, the firstpass is
|
|
@@ -743,7 +743,7 @@ uses
|
|
|
{$else}
|
|
{$else}
|
|
|
p^.propoptions:=p^.propoptions+[ppo_defaultproperty];
|
|
p^.propoptions:=p^.propoptions+[ppo_defaultproperty];
|
|
|
{$endif}
|
|
{$endif}
|
|
|
- if not(assigned(propertyparas)) then
|
|
|
|
|
|
|
+ if propertyparas^.empty then
|
|
|
message(parser_e_property_need_paras);
|
|
message(parser_e_property_need_paras);
|
|
|
end;
|
|
end;
|
|
|
consume(_SEMICOLON);
|
|
consume(_SEMICOLON);
|
|
@@ -1598,7 +1598,10 @@ uses
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.4 1999-10-27 14:17:08 florian
|
|
|
|
|
|
|
+ Revision 1.5 1999-10-27 16:04:06 peter
|
|
|
|
|
+ * fixed property reading
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.4 1999/10/27 14:17:08 florian
|
|
|
* property overriding fixed
|
|
* property overriding fixed
|
|
|
|
|
|
|
|
Revision 1.3 1999/10/26 12:30:45 peter
|
|
Revision 1.3 1999/10/26 12:30:45 peter
|
peter