VPF::Assign вызывает EconvertError - Форум программистов

jsa

Дата 16.10.2008, 04:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 704
Регистрация: 19.1.2006
Где: Новосибирск

Репутация: 1
Всего: 20

Hi All!

есть код

Код


type
  TStructuredObj = class(TComponent)
    private
     ....
    published
      property PropA: Integer read ... write...
  end;

...
var SObj1, SObj2: TStructueredObj;

SObj1:=TStructuredObj.Create(nil);
SObj2:=TStructuredObj.Create(nil);

SObj1.PropA:=10;

SObj2.Assign(SObj1); // здесь возникает EConvertError

Почему?

PS: конечно можно написать метод клонирования с пробегом по всем свойствам через rtti, но хочется понять почему не работает Assign, где ошибка в 17 строке
PPS: может у меня руки кривые?

--------------------

Все мы, на перине с песней, строим небо на земле © Ю. Шевчук

Rrader

Дата 16.10.2008, 06:16 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Потому что метод Assign нужно перекрывать и релизовывать самому. Примеры реализации - их полно в VCL.

Код


type
  TStructuredObj = class(TComponent)
  private
    FPropA: Integer;
  public
    procedure Assign(Source: TPersistent); override;
  published
    property PropA: Integer read FPropA write FPropA;
  end;

implementation

{ TStructuredObj }

procedure TStructuredObj.Assign(Source: TPersistent);
begin
  if Source is TStructuredObj then
  begin
    FPropA := TStructuredObj(Source).PropA;
    Exit;
  end;
  inherited Assign(Source);
end;

Это сообщение отредактировал(а) Rrader - 16.10.2008, 06:18

--------------------

Let's do this quickly!
Rest in peace, Vit!

jsa

Дата 16.10.2008, 09:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 704
Регистрация: 19.1.2006
Где: Новосибирск

Репутация: 1
Всего: 20

Цитата(Rrader @ 16.10.2008, 11:16

)

Потому что метод Assign нужно перекрывать и релизовывать самому.

Rrader, ясно, спасибо за помощь

Это сообщение отредактировал(а) jsa - 16.10.2008, 09:12

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »