关于类和代码优化

因为指向之类的变量，可以强制转换为父类的变量，因此类似于下面的代码都可以简化：

if Sender is TMemo then

 (Sender as TMemo).Text:='Test'

else if Sender is TDBEdit then

 (Sender as TDBMemo).Text:='Test';

可以变成如下的代码，以便提高效率：

if Sender is TCustomMemo then

 TCustomMemo(Sender).Text:='Test';

因为is和as是效率很低的东东！尽量少用！！