Помогите пожалуйста с задачей:
Как использовать в методе проверку устнавливаемого значения x на попадание в допустимый интервал???
Ты про это:
type?
T = class
private
_X: integer;
function getX: integer;
procedure setX(value: integer);
public
property X: integer read getX write setX;
end;
function T.getX: integer;
begin
result := _X;
end;
procedure T.setX(value: integer);
begin
if(value > 0) and (value < 10) then _X := value
else writeln('Error ...')
end;
var
obj: T;
begin
obj := T.Create;
obj.X := 8;
writeln(obj.X);
obj.X := 28;
writeln(obj.X);
end.
Пока не проходили Public и Private. Можно без них как-нибудь написать?
Просто убери их из текста... Тогда все поля и методы будут public (это метод доступа по умолчанию) ...
Большое спасибо!!! Ты мне очень помог!!!