AS
Size: a a a
AS
ДT
RS
AS
DB
AK
AK
SB
ДT
AK
KB
ДT
ДT
SB
KB
AK
SB
AK
СП
TNLC = Class (TNL)
private
FNoLoadCurrent: Extended;
+100500 методов
public
property NoLoadCurrent: Extended read FNoLoadCurrent;
procedure CalcNoLoadCurrent;<-этот общий для +100500
end;
При нажатии кнопки:
NLC.CalcNoLoadCurrent;
Контрол := NLC.NoLoadCurrent;
ИЛИ
TNLC = Class (TNL)
private
FNoLoadCurrent: Extended;
public
property NoLoadCurrent: Extended read FNoLoadCurrent;
+100500 методов
end;
При нажатии кнопки:
NLC.+100500;
...
NLC.+100500;
Контрол := NLC.NoLoadCurrent;
SB