Assign Timer

[Дmmm]

Вылетает EConvertError при исполнении инструкции типа:
procedure TMyType.Assign(Source: TPersistent);
.........
Timer1.Assign(TMyType(Source).Timer 1);

Где
TMyType=class(TPersistent)
........
Timer1: TTimer;
........
procedure Assign(Source: TPersistent); override;
........
end;

Какие-то проблемы с методом TTimer.Assign?

[Stilet]

А зачем Assign() делать? Просто присвоить обычным "равно" не годится?

[min@y™]

Кстати, вот:

If no overridden Assign method can handle the assignment of properties from Source, the method implemented in TPersistent calls the source object’s AssignTo method. This allows the source object to handle the assignment. If the Source object is nil (Delphi) or NULL (C++), Assign raises an EConvertError exception.

[Дmmm]

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

А зачем Assign() делать? Просто присвоить обычным "равно" не годится?

что именно присвоить? сам объект, как известно, присвоить нельзя, это ссылка

[min@y™]

сам объект, как известно, присвоить нельзя, это ссылка

Это смотря чему и где присваивать!

[Дmmm]

Эт точно. исходя из темы, что можно присвоить в объекте типа TTimer?

[Vapaamies]

Метод Assign работает не по волшебству, а лишь исполняет то, что в нем написано. Конкретными наследниками TPersistent принимается лишь ограниченный набор типов, все остальные дают исключение.

Есть железная уверенность, что TTimer ничего не знает о вашем типе, так что исключение -- это нормально. Пересмотрите задачу. Можете с нами поделиться, если хотите.

[min@y™]

что можно присвоить в объекте типа TTimer?

что значит "в объекте"?

[Дmmm]

"в объекте" - значит значения полей, свойства. в конкретном случае, судя по описанию, это
In TTimer (Конкретном наследнике TPersistent )
Enabled
Interval
разве метод Assign не их должен переприсваивать?
и что он еще "должен знать"?

[min@y™]

Я всё жду, когда ты залезешь в исходник и посмотришь.