| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка при объявлении property . [D7, WinXP]

misyachniy ©   (2006-04-28 15:41:00) 

Объявил  property и две функции работы с ним:

public
function SetSizeBuffer(S:integer):boolean;
function GetSizeBuffer:integer;
property sBuffer: Integer read GetSizeBuffer write SetSizeBuffer;

Функция SetSizeBuffer возвращает true в случаее успешного завершения.

function tBuffer.SetSizeBuffer(S:integer):boolean;
begin
try
SetLength(Buffer,S);
except
 on EOutOfMemory do
  begin
   result:=false;
   exit;
  end;
end;
sBuffer:=S;
result:=true;
end;

При компиляции получаю ошибку
[Error] Buffers.pas(21): Incompatible types - именно на эту функцию.

Кто виноват, что делать?
Спасибо.

---

evvcom   (2006-05-02 09:05:00) [1]

> function SetSizeBuffer(S:integer):boolean;

procedure SetSizeBuffer(S:integer);

---

MBo   (2006-04-28 18:04:00) [2]

>То есть передаются два параметра.
Это для индексированных свойств (с синтаксисом массивов)

---

misyachniy   (2006-04-28 17:52:00) [3]

Странно.
У меня в книжке Рея Конопки "Создание оригинальных компонент в среде Delphi" на странице 53 в примере

procedure SetShelfLabels(Index:integer; const Value:string);

То есть передаются два параметра.
Ну ладно спрячу переменную, и объявлю функции как мне нужно.

---

Яся   (2006-04-28 16:32:00) [4]

In a write specifier, if fieldOrMethod is a method, it must be a procedurethat takes a single value or const
parameter of the same type as the property.

---

misyachniy   (2006-04-28 16:16:00) [5]

Компилятору не нравится именно объявление property:

property sBuffer: Integer read GetSizeBuffer write SetSizeBuffer;


буфер объявлен как массив байт;

Buffer:array of byte;


---

Юрий Зотов   (2006-04-28 15:53:00) [6]

1. SetLength(Buffer,S)-  а что такое Buffer? Похоже, что причина ошибки в этом и есть.

2. Зачем методы доступа к свойству объявлять в public, если само свойство уже объявлено там же?

3. Подозреваю, что метод GetSizeBufferне нужен, его вполне можно заменить прямым доступом к полю.

4. Строка sBuffer:=Sдаст рекурсию.

---

Наверх