Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.24;
Скачать: CL | DM;

Вниз

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]

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2006.12.24;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.042 c
15-1165243674
zdm
2006-12-04 17:47
2006.12.24
"Красота Висты"


15-1164794548
GRAND25
2006-11-29 13:02
2006.12.24
В защиту СУБД FireBird


2-1164824117
SuperValeha
2006-11-29 21:15
2006.12.24
Создание приложение которое нельзя свернуть и закрыть


3-1160551481
Megabyte
2006-10-11 11:24
2006.12.24
Хранимые Процедуры разных типов


3-1160555999
User7777
2006-10-11 12:39
2006.12.24
использование TQuery без SQL сервера