Объекты... Объекты? Объекты !, (для начинающих) Опции

[volvo]

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

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-члены класса, описанного в другом модуле, не видны в наследнике...

[Archon]

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

Давай представим, что это возможно:

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.

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

[volvo]

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

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

P.S. Проблема решается добавлением метода, заполняющего строку в класс TB.

[Client]

перегрузку функций

А что это такое?

Добавлено через 3 мин.

private-члены класса, описанного в другом модуле, не видны в наследнике...

А в одном модуле они наследуются? (видимо да...)

[volvo]

А в одном модуле они наследуются?

В одном модуле директивы 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-я, описание функций/процедур с одинаковыми именами, но разными списками параметров. И пусть компилятор сам разбирается, какую процедуру с заданными мной параметрами надо вызывать...

[Archon]

P.S. Проблема решается добавлением метода, заполняющего строку в класс TB.

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

[Client]

Проблема решается добавлением метода, заполняющего строку в класс TB.

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

P.S. Экзамен сдал на 5