Вопрос по созданию класса

← →
leonidus (2004-11-02 10:18) [0]

Задали курсовик по ООП, в принцопе все сделал но столкнулся с формальной проблемой.

Создаю класс:

//начало описания класса
type
TAutomobile=class

Napr_Grad:word; //поле направления движения
Name:string; //поле именя владельца
ID:word; //уникальный идентификатор автомобиля
private
function GetTecV:real;
procedure SetTecV(TecV:real);
public
//для поля TekV по условию надо предложить модификаторы
// доступа, я так предположил это именно GetTekV и SetTekV
property TekV:real read GetTekV write SetTekV;

//описание методов
constructor Create(var command_str:string);
procedure ChangeSpeed(delta:real);
procedure Stop;
end;

Так вот, после компиляции выдается сообщение об ошибке "Cannot assign to a read-only property" с указанием на строку property TekV:real read GetTekV write SetTekV;
Я не понимаю почему это свойство TekV вдруг только для чтения и я его не могу изменить впроцедуре SetTecV?

Знатоки ООП, подсажите пожалуйста.

← →
Семен Сорокин © (2004-11-02 10:23) [1]

function GetTecV:real;
procedure SetTecV(TecV:real);
public
//для поля TekV по условию надо предложить модификаторы
// доступа, я так предположил это именно GetTekV и SetTekV
property TekV:real read GetTekV write SetTekV;

:))

← →
TUser © (2004-11-02 10:30) [2]

Не гони ( :)) - нормально все компилится. И ошибка эта не на таких строках возникает.

PS. А здесь у тебя, кстати, будет - Field or method expected, т.к. Tec и Tek - это разные вещи.

← →
leonidus (2004-11-02 11:03) [3]

да, сори на опечатку, это дело я исправил но теперь другая фишка, на строке function GetTekV:real;
пишет "Unsatisfied forward or external declaration" ...

← →
PVOzerski © (2004-11-02 11:06) [4]

Значит, в описании класса исправил, а в implementation забыл.

← →
leonidus (2004-11-02 11:09) [5]

да нет не забыл, вот код, в нем вообще нет описания ни GetTecV ни SetTecV, они вообще по условию ничего делать не должны - просто быть. Это же учебный пример.

implementation

constructor TAutomobile.Create(var command_str:string);
begin
command_str:=paramstr(1);
end;

procedure TAutomobile.ChangeSpeed(delta:real);
begin
TekV:=TekV+delta;
end;

procedure TAutomobile.Stop;
begin
TekV:=0;
end;

← →
PVOzerski © (2004-11-02 11:28) [6]

Ну уж если ты пишешь, что это функции - изволь довести это обстоятельство до конца. Сам же пишешь: они должны быть. Хотя бы abstract, хотя это совсем чушь по смыслу будет. Либо уж "перевешивай" свойства на переменные.

← →
leonidus (2004-11-02 13:10) [7]

Ну я тут не виноват что ни описания функции GetTekV ни описания процедуры SetTekV в программе нет, по тому что в условии задачи написано "для поля TekV предусмотреть модификаторы доступа". Я вообще-то до конца и не понял что это за модификаторы, но интуитивно показалось что это как раз read и write. Или може надо просто в implementation написать все таки эту функцию и процедуру... но тогда что у них внутри должно быть, какова их функция?

← →
TUser © (2004-11-02 13:32) [8]

> Ну я тут не виноват что ни описания функции GetTekV ни описания процедуры SetTekV в программе нет

LOL. Борланд с Биллом Гейтсом виноваты, наверное

← →
leonidus (2004-11-02 14:14) [9]

ну нет конечно, просто я не врубаюсь что от меня хотят в этими модификаторами

хм, действительно, как приятно было бы программировать еслиб все это сводилось лишь к описанию интерфейса...

← →
leonidus (2004-11-03 07:57) [11]

Ну это конечно теоретическая задача... все таки подскажите как поступить.

← →
leonidus (2004-11-03 08:38) [12]

короче говоря вот это:

function TAutomobile.GetTekV:real;
begin
end;

procedure TAutomobile.SetTekV(TekV:real);
begin
end;

спасло отца русской демократии:)

Вопрос по созданию класса Найти похожие ветки