Incompatible types Почему?

[dimavit]

1. При объявлении класса определяю поле FLife: SmallInt;
2. Там же указываю метод для записи в это поле: function SetLife(AIzm: SmallInt): SmallInt;
3. Там же указываю свойство: property Life: SmallInt read FLife write SetLife;

При компиляции получаю сообщение, что в строке 3 определены Incompatible types. Причем, какие именно types являются Incompatible не указано. Как видно, все типы являются одинаковыми. Если какой-либо из них изменить (допустим на Byte), то это же сообщение указывает уже конкретно, что типы Byte и SmallInt являются несовместимыми и это понятно. Но почему же являются несовместимыми SmallInt и SmallInt? Кстати, если поменять все типы SmallInt на любые другие (например integer, Byte, string, etc), то результат будет тем же - Incompatible types без конкретного указания несовместимых типов. Если функцию заменить процедурой (т.е. тип не указывается) то все нормально.

[p51x]

а разве сеттер что-то возвращает? скорее всего он и определен, как procedure ... вот и ругается на несовместимость

[dimavit]

Сообщение от p51x

а разве сеттер что-то возвращает? скорее всего он и определен, как procedure ... вот и ругается на несовместимость

Ну как же, в п.2 я его объявляю как функцию: function SetLife(AIzm: SmallInt): SmallInt; А потом эту функцию определяю:

function TBeing.SetLife(AIzm: SmallInt): SmallInt;
begin
  FLife:= FLife - AIzm;
  if FLife<0 Then FLife:=0;
  Result:= FLife;
end;

[Пепел Феникса]

сеттер не может быть функцией, что не понятно?

[GunSmoker]

dimavit, неправильно трактуешь сообщение. Сигнатура метода - это тоже тип данных. "Incompatible types" говорит не о SmallInt, а о function SetLife. Сеттер должен иметь вид:

procedure SetSomething(Value: TSomeType);

или

procedure SetSomething(const Value: TSomeType);