Свойства класса - Общие вопросы Delphi

ImmortalAlexSan · 04.11.2010, 21:11

Код:

type
  TFood = class(TObject)
  private
    fSize: integer;
    ArrayRGB: PArrayRGB;
    procedure pSize(Value: Integer);
  protected
    Constructor Create(AOwner: TObject);

  public
    procedure pPaintFood(aPlane: TBitmap; R,G,B:byte);
    property Size: integer read fSize write pSize;
  published

  end;

procedure TFood.pSize(Value: integer);
Begin
  fSize:=Value;
End;

Не работает, ошибку при выполнении выдает. Что я неправильно написал? Ошибка конечно в процедуре записи числа в переменную: Write address 00000004

Пепел Феникса · 04.11.2010, 22:50

странно, код верный, показывай применение класса.

ImmortalAlexSan · 05.11.2010, 00:33

Пепел Феникса, всё нашел ошибку. Описал метод Create, а забыл создать объект в применении кода. Тему можно закрывать.
P.S. Прошу прощения что так поздно ответил. С инэтом проблемы были...

04.11.2010, 21:11	#1
ImmortalAlexSan Участник клуба Регистрация: 13.01.2009 Сообщений: 1,353	Свойства класса Код: `type TFood = class(TObject) private fSize: integer; ArrayRGB: PArrayRGB; procedure pSize(Value: Integer); protected Constructor Create(AOwner: TObject); public procedure pPaintFood(aPlane: TBitmap; R,G,B:byte); property Size: integer read fSize write pSize; published end; procedure TFood.pSize(Value: integer); Begin fSize:=Value; End;` Не работает, ошибку при выполнении выдает. Что я неправильно написал? Ошибка конечно в процедуре записи числа в переменную: Write address 00000004 "Тебе то может на меня и насрать, но твои глаза меня обожают!"

04.11.2010, 22:50	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	странно, код верный, показывай применение класса. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

05.11.2010, 00:33	#3
ImmortalAlexSan Участник клуба Регистрация: 13.01.2009 Сообщений: 1,353	Пепел Феникса, всё нашел ошибку. Описал метод Create, а забыл создать объект в применении кода. Тему можно закрывать. P.S. Прошу прощения что так поздно ответил. С инэтом проблемы были... "Тебе то может на меня и насрать, но твои глаза меня обожают!"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
excel2003 свойства класса ChartArea	ppklad	Microsoft Office Excel	10	27.07.2010 22:08
Параметр конструктора класса = объект этого класса	nazavrik	Общие вопросы C/C++	6	14.02.2010 13:48
свойства DBNavigator	Rin	БД в Delphi	6	24.12.2009 00:04
Если в классе объявить объект другого класса,будет ли видно переменные первого класса из объекта второго?	TwiX	Общие вопросы Delphi	3	15.11.2009 00:54
Свойства Label	Vladya	Общие вопросы Delphi	5	16.03.2009 14:10