Свойство копонента типа TStringlist

[nza]

Пытаюсь сделать свойство у компонента типа TStringList.

делаю так:

 private
...
    FFixedCaption :TStringList;
    function GetFixedCaption: TStringList;
    procedure SetFixedCaption(const Value: TStringList);
...
 published
...
property FixedCaptions: TStringList read GetFixedCaption write SetFixedCaption;
...
implementation
...
constructor TButtonGrid.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FFixedCaption:=TStringList.Create;
...

procedure TButtonGrid.SetFixedCaption(const Value: TStringList);
var i:integer;
begin
   if  not assigned(value) then exit;
   FFixedCaption:=value; 
   for i:=0 to value.Count-1 do   FGrid.Cells[i,0]:=value[i];
   
end;

function TButtonGrid.GetFixedCaption: TStringList;
begin
  Result:=FFixedCaption;
end;

ввожу строки а Object inspector

после ввода выскакивает ошибка.

Помогите разобраться


FGrid - это TStinggrid

[Rik]

procedure TButtonGrid.SetFixedCaption(const Value: TStringList);
var i:integer;
begin
   FFixedCaption:=value; //неправильно, вы создали экземпляр TStringList, FFixedCaption хранит на него ссылку, здесь вы её затираете
  FFixedCaption.Assign(Value); //Должно быть так
   for i:=0 to value.Count-1 do   FGrid.Cells[i,0]:=value[i];
   
end;

Лучше объявлейте FFixedCaption не TStringList а TStrings, это не мешает сделать в конструкторе FFixedCaption := TStringsList.Create;

[nza]

Rik,
спасибо ошибка пропала ...
но теперь введенные данные в конструкторе видны,
а при запуске приложения пропадают

[Rik]

Сообщение от nza

Rik,
спасибо ошибка пропала ...
но теперь введенные данные в конструкторе видны,
а при запуске приложения пропадают

Вы имеете ввиду данные ячеек FGrid ?

[nza]

да ... пропадают данные ячеек Fgrid