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

Вниз

Invalid type cast   Найти похожие ветки 

 
DimaBr   (2006-08-03 18:59) [0]

Создал класс, дабы не сохранять свойство в ресурсе.

TMyFont = class(TFont)
 private
   function IsCustomName: boolean;
 published
   property Charset default DEFAULT_CHARSET;
   property Color   default clWindowText;
   property Height  default -11;
   property Name   stored IsCustomName;
   property Style   default [];
end;

При объявлении свойства это типа в дизайнере возникает ошибка приведения типов, почему никак не могу понять.


property Font: TMyFont read GetFont write SetFont;

function TMyComponent.GetFont: TMyFont;
begin
 Result := fLabel.Font as TMyFont; // <- ошибка
 Result := TMyFont(fLabel.Font);   //  <- нет ошибки
end;


 
Ketmar ©   (2006-08-03 19:24) [1]

нельзя "повышать" тип. можно только "понижать". т.е. as тут "не канает".


 
Суслик ©   (2006-08-04 00:21) [2]


>  Result := TMyFont(fLabel.Font);   //  <- нет ошибки

нет ошибки компиляции, но runtime накажет :)


 
DimaBr   (2006-08-04 09:16) [3]


> Ketmar ©

Так что, написать функцию "повышения" ?

function FontAs(Value: TFont): TMyFont;
begin
 Result := TMyFont.Create;
 Result.Charset = Value.Charset;
 ....
end;


 
Ketmar ©   (2006-08-04 10:05) [4]

типа того. это корректней. %-)


 
Alekcvp ©   (2006-08-04 10:28) [5]


> Result := TMyFont(fLabel.Font);

Result.Assign(fLabel.Font) ?



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

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

Наверх




Память: 0.47 MB
Время: 0.046 c
15-1156254291
ArtemESC
2006-08-22 17:44
2006.09.17
Сколько на дискете дорожек, и сколько в дорожках секторов?


2-1157011441
Pupkin
2006-08-31 12:04
2006.09.17
Как определить текущее состоние звукового канала (muted/demuted)


2-1156290623
RASkov
2006-08-23 03:50
2006.09.17
Рекурсия


15-1155064161
xxxx
2006-08-08 23:09
2006.09.17
дозвон


15-1156235492
buka
2006-08-22 12:31
2006.09.17
Ася, шрифты, ворд...