财务软件版1楼: SQLServer中如何求自定义类型的长度，有没有现在的函数？
如:
--权限
if exists (select name from systypes where name=＇＇tyRight＇＇)
execute sp_droptype ＇＇tyRight＇＇
execute sp_addtype ＇＇tyRight＇＇, ＇＇binary(800)＇＇, ＇＇not null＇＇

2楼: TObject(tmpList.Items[i]).IsInheritFrom(TForm) 如免费的仓库管理软件

3楼: Iterator + Visitor

4楼: to 在世寻欢:
没有IsInheritFrom方法，但有一个InheritsFrom方法，不过不行，
if TObject(tmpFormList.Items[i]).InheritsFrom(TfrmBasGenDataFrm) then //这样不行
InfoMsgBox(TfrmBasGenDataFrm(tmpFormList.Items[i]).Caption);
s:=TObject(tmpFormList.Items[i]).ClassParent.ClassName;
if s=＇＇TfrmBasGenDataFrm＇＇ then begin //这样可以，不过很别扭
InfoMsgBox(TfrmBasGenDataFrm(tmpFormList.Items[i]).Caption);
end else if s=＇＇TfrmBasGenQryFrm＇＇ then begin ...

To 黎永欢:
天啊，完全看不懂，请指教

5楼: 去看设计模式

6楼: To 黎永欢:
请说说你有什么好的思路，另外请帮忙看看我写的软件，看看有什么好建议，谢谢。
http://www.delphibbs.com/delphibbs/dispq.asp？lid=3320911

财务软件版7楼: 接受答案了.