Mattias Gaertner wrote:
I need it to derived object
2.Its better in OOP use property than raw field, in future in descendant
object we can override by the function
Can you give an example?
SomeClass = class
protected
fSize : integer;
public
...
property Size : integer read fSize write fSize;
...
end;
DerivedClass = class(SomeClass)
protected
procedure SetSize(newSize : integer);
public
property Size : integer read fSize write SetSize;
end;
procedure DerivedClass.SetSize(newSize : integer)
begin
if (newSize > 4) and (newSize < 100) then
fSize := newSize;
end;
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
