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

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Объекты... Объекты? Объекты !, (для начинающих)
сообщение
Сообщение #21


Гость






Цитата
Могу ли я переопределить поле х в потомке

unit unit_a;
interface

type
ta = object
private
X: integer;
end;

implementation
end.

uses unit_a;
type
tb = object(ta)
X: real;
end;
begin
end.
, т.е., ты можешь воспользоваться тем, что private-члены класса, описанного в другом модуле, не видны в наследнике...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Профи
****

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

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


Цитата
Могу ли я переопределить поле х в потомке
Давай представим, что это возможно:
type
TA = object
X: Integer;
procedure SaveX(Value: Integer);
end;

TB = object(TA)
X: String;
end;

procedure TA.SaveX(Value: Integer);
begin
X := Value;
end;

begin
TB.SaveX(10); { <- Вызов разрешен, так как метод наследуется, но }
{ он (метод) не рассчитан на работу с полем X: String }
end.
В итоге метод SaveX (а он наследуется) оказывается неработоспособным, так как в нем содержатся инструкции поместить значение типа Integer в поле типа Integer, а мы изменили тип поля на String.

Вот хорошая причина, почему это нельзя делать.


--------------------
Close the World...txeN eht nepO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Гость






Цитата
Вот хорошая причина, почему это нельзя делать.
По этой же причине нельзя использовать перегрузку функций... Ты ее никогда не используешь? Напрасно, очень мощное средство...

P.S. Проблема решается добавлением метода, заполняющего строку в класс TB.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

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


Цитата
перегрузку функций
А что это такое?

Добавлено через 3 мин.
Цитата
private-члены класса, описанного в другом модуле, не видны в наследнике...
А в одном модуле они наследуются? (видимо да...)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Гость






Цитата
А в одном модуле они наследуются?
В одном модуле директивы private/protected не работают, они работают только для попыток обращения из другого модуля. То есть, если я сделаю так:
type
TA = object
procedure SetX(value: integer);
protected
X: integer;
end;

TB = object(TA)
procedure PrintX;
end;

procedure TA.SetX(value: integer);
begin X := value; end;
procedure TB.PrintX;
begin writeln(X); end;

var obj: TB;
begin
obj.setX(10);
obj.X := 2; // <--- Нельзя !!! Но ошибки нет...
obj.printX;
end.
, то вроде бы незаконное (по меркам других языков программирования) обращение к полю Х (оно защищенное, то есть, недоступное ниоткуда, кроме методов класса и его потомков) проходит без ошибки. А вот если то же самое попробовать сделать из другого модуля (нижние 6 строк) - все будет работать, как полагается, в строке obj.X := 2; компилятор выдаст ошибку... Это, конечно, не то, к чему привыкаешь, программируя на С++, но вот в Паскале/Дельфи - так...

Цитата
А что это такое?
Перегрузка функций - это из Object Pascal-я, описание функций/процедур с одинаковыми именами, но разными списками параметров. И пусть компилятор сам разбирается, какую процедуру с заданными мной параметрами надо вызывать...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Профи
****

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

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


Цитата
P.S. Проблема решается добавлением метода, заполняющего строку в класс TB.
А если метод без параметров? Тогда надо уже не добавлять, а перекрывать существующий. Можно, конечно, заставлять программиста перегружать или перекрывать каждый метод, ставший неработоспособным, это как-то не по-Паскалевски. Вот в С++ я могу такое представить. smile.gif


--------------------
Close the World...txeN eht nepO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

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


Цитата
Проблема решается добавлением метода, заполняющего строку в класс TB.
Добавим новый метод, назовем по другому и все? Или что-то тут не так?
И можно новую задачку попроще, для чайника smile.gif

P.S. Экзамен сдал на 5 smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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