Создать класс с допустимыми значениями Опции

[ati]

Помогите пожалуйста с задачей:
Как использовать в методе проверку устнавливаемого значения x на попадание в допустимый интервал???

[volvo]

Ты про это:

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.

?

[ati]

Пока не проходили Public и Private. Можно без них как-нибудь написать?

[volvo]

Просто убери их из текста... Тогда все поля и методы будут public (это метод доступа по умолчанию) ...

Сообщение отредактировано: volvo - 24.04.2007 20:05

[ati]

Большое спасибо!!! Ты мне очень помог!!!