Свойства массивы в процедуре Assign

← →
Константинов © (2004-09-13 22:02) [0]

Собтвенно сабж,

TMyClass = class ( TPersistent )
private
FList : TList; //хранит ссылки на элементы массива
public
property Items[Index : integer] : word read GetItems write SetItems;
procedure Assign ( Source : TPersistent );
end;

...

procedure TMyClass.Assign(Source: TPersistent);
begin
if Source is TMyClass then
begin
FList := ???
FProperty1 := TMyClass(Source).Property1;
...
end;

← →
Колбасьев © (2004-09-13 22:07) [1]

Используй TList.Assign. Подробнее в Справке Delphi.

← →
Константинов © (2004-09-13 22:52) [2]

Попробую... у меня, используя Assign, почему-то часто вылетает AV. Наверное я что-то не так делаю... пойду почитаю справку...

← →
jack128 © (2004-09-13 22:55) [3]

Колбасьев © (13.09.04 22:07) [1]
а что, разве у tlist появился этот метод?
Константинов © (13.09.04 22:02)
ручками, все ручками..
procedure TMyClass.Assign(Source: TPersistent);
var
_Source: TMyClass;
begin
inherited;
if Source is TMyClass then
begin
_Source := TMyClass(Source);
FList.Count := _Source.FList.Count;
for i := 0 to FList.Count - 1 do
FList[i] := _Source.FList[i]; // это если ты свои word хранишь как word(FList[i])
FProperty1 := _Source.Property1;
...
end

Свойства массивы в процедуре Assign Найти похожие ветки