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

> ВНИМАНИЕ!

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

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





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

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


Помогите пожалуйста с задачей:
Как использовать в методе проверку устнавливаемого значения x на попадание в допустимый интервал???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
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.

?
 К началу страницы 
+ Ответить 
ati
сообщение 24.04.2007 15:57
Сообщение #3





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

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


Пока не проходили Public и Private. Можно без них как-нибудь написать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 24.04.2007 16:05
Сообщение #4


Гость






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

Сообщение отредактировано: volvo - 24.04.2007 16:05
 К началу страницы 
+ Ответить 
ati
сообщение 24.04.2007 16:07
Сообщение #5





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

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


Большое спасибо!!! Ты мне очень помог!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 



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