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

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

TStrings property [D7, Win2k]

Begin ©   (2006-04-24 12:48:00) 

Есть компонент, наследник TCustomStringGrid.
Для него объявляется published property

published
 ColCaps : TStrings read FColCaps write SetColCaps;

В конструкторе FColCaps создается как:
FColCaps := TStringList.Create;

Первый вопрос: В деструкторе надо явно прописывать FColCaps.Free? Или при уничтожении стринг грида FColCaps автоматически память освободит?

Второй вопрос. Инспектор объектов предлагает для TStrings свой редактор по умолчанию. Задать строки он позволяет, но когда я пытаюсь их редактировать, окно редактора открывается пустым. Как правильно связать содержимое FColCaps и окно редактора?

---

Юрий Зотов   (2006-04-24 17:00:00) [1]

До кучи - и метод GetColCaps тоже не нужен, по чтению достаточно прямого доступа к полю.

---

Begin   (2006-04-24 16:51:00) [2]

Баальшой спасиб... :)

---

Юрий Зотов   (2006-04-24 16:47:00) [3]

Так и есть. То самое, что и предполагалось...

procedure TXStringGrid.SetColCaps (const Value: TStrings);
begin
 FColCaps.Assign(Value)
end;

И все беды кончатся. И писать Self не надо, он и так подразумевается. И проверять в деструкторе FColCaps на nil тоже ни к чему. И FreeAndNil там не нужно, обычного Free достаточно.

---

Begin   (2006-04-24 15:32:00) [4]

Блин, намудрил чего то с тегами...

private
procedure SetColCaps (const Value: TStrings);
function GetColCaps  : TStrings;
...
published
property ColCaps : TStrings read GetColCaps write SetColCaps ;

implementation
//***********************************************************
constructor TXStringGrid.Create(AOwner: TComponent);
begin
...
self.FColCaps := TStringList.Create;
...
end;
//***********************************************************
procedure TXStringGrid.SetColCaps (const Value: TStrings);
begin
FColCaps := Value;
end;
//***********************************************************
function TXStringGrid.GetColCaps : TStrings;
begin
result := self.FColCaps
end;
//***********************************************************

---

Begin   (2006-04-24 15:30:00) [5]

> Юрий Зотов ©   (24.04.06 14:10) [1]
> 1. Надо. TStringList - некомпонентский класс, владельца
> он не имеет и уничтожать его автоматически некому.

Вот. Я так и подумал. Соответственно перекрыл деструктор. И теперь: если в дизайн тайме положить компонент на форму, задать ColCaps и попытаться удалить грид, Делфи вылетает полностью с жуткими виолейшенами...

destructor Destroy; override;
...
destructor TXStringGrid.Destroy;
begin
 if FColCaps <> nil then
   FreeAndNil(FColCaps); // вот тут и вылетает...

 inherited;
end;



> 2. Такого быть не должно. Похоже, что метод SetColCaps написан
> неверно. Покажите код.


Да там нету ничего особенного...


private
procedure SetColCaps (const Value: TStrings);
function GetColCaps  : TStrings;
...
published
property ColCaps : TStrings read GetColCaps write SetColCaps ;

implementation
//***********************************************************constructor TXStringGrid.Create(AOwner: TComponent);
begin
...
 self.FColCaps := TStringList.Create;
...
end;
//***********************************************************procedure TXStringGrid.SetColCaps (const Value: TStrings);
begin
 FColCaps := Value;
end;
//***********************************************************function TXStringGrid.GetColCaps : TStrings;
begin
 result := self.FColCaps
end;
//***********************************************************

---

Юрий Зотов   (2006-04-24 14:10:00) [6]

1. Надо. TStringList - некомпонентский класс, владельца он не имеет и уничтожать его автоматически некому.

2. Такого быть не должно. Похоже, что метод SetColCaps написан неверно. Покажите код.

---

Наверх