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

> ВНИМАНИЕ!

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

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Создать класс с допустимыми значениями
сообщение
Сообщение #1





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

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


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

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





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

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


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


Гость






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

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





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

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


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

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

 





- Текстовая версия 29.03.2024 14:27
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name