如何写这样的公用函数？？？？

Question

你写到FormShow中应该可以的。
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

BeginUpdate和EndUpdate方法与显示是有一定关系的，所以不要写在OnCreate事件中！最好写在OnShow事件中，但只要注意，在Onshow事件中一定要加一个标志，否则在窗口从最小化还原时，也要处理以上的内容！

Answer 2

我这里不报错的，同意lxpbuaa(桂枝香在故国晚秋) 的观点，写进FormShow里试试

Answer 3

同样不行，跟踪进去，发现在函数LoadData中Form1＝nil！！！

Answer 4

这是建立顺序的问题
如果你一定要这样做，解决方法有两个，
1。OldCreateOrder 设置为True
2。就不告诉你！
开个玩笑了，第二个比较麻烦！
--The end;

Answer 5

代码没有问题，除非你犯低级错误，如：Form1.ListView....

Answer 6

我是犯了一个低级错误，调用的时候写成Form1.LoadData了：（将Form1去掉就ok了。结帖。