TStrings property

← →
Begin (2006-04-24 12:48) [0]

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

published
ColCaps : TStrings read FColCaps write SetColCaps;

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

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

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

← →
Юрий Зотов © (2006-04-24 14:10) [1]

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

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

← →
Begin (2006-04-24 15:30) [2]

> Юрий Зотов © (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; //***********************************************************

← →
Begin (2006-04-24 15:32) [3]

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

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 16:47) [4]

Так и есть. То самое, что и предполагалось...
procedure TXStringGrid.SetColCaps (const Value: TStrings); begin FColCaps.Assign(Value) end;
И все беды кончатся. И писать Self не надо, он и так подразумевается. И проверять в деструкторе FColCaps на nil тоже ни к чему. И FreeAndNil там не нужно, обычного Free достаточно.

← →
Begin (2006-04-24 16:51) [5]

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

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

TStrings property Найти похожие ветки