IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Создать класс с допустимыми значениями
ati
сообщение 24.04.2007 15:36
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Женский

Репутация: -  0  +


Помогите пожалуйста с задачей:
Как использовать в методе проверку устнавливаемого значения x на попадание в допустимый интервал???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 24.04.2007 15:43
Сообщение #2


Гость






Ты про это:
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.

?
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 9.07.2025 13:11
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"