TQRShape高度變化問題,Another_eYes請進。高手請進 (100分)

Another_eYes:
我看了你在下面貼子上的有關解決QRShape高度變化問題。但是下面的代碼我編譯時確通不過! 錯誤提示：：[Error] Unit2.pas(34): ',' or ':' expected but ';' found
[Error] Unit2.pas(35): Type expected but 'END' found
undeclared identifier.'alLeftJustify'
http://www.delphibbs.com/delphibbs/dispq.asp?lid=330346
您的代碼如下：
Type
TMyQRShape = class(TQRShape)
published
Align;
end;
加在定义部分(只要在你调用之前就可以了).
TMyQRShape(QRShape1).Align := alLeftJustify;
// or RightJustify
加在BeforePrint事件里(有十个shape最简单的就是写10遍呗).

怎麼解決？

太慢了，不要这么长时间。方法不对！！！

我覺得很奇怪，寫進去的時候，根本不要經過這麼多步。
1，不用寫到list，再取出來
2，寫進去之用，又要有一個判斷它有沒有
3，然後再用插入
可以這樣，寫的時候，在數據庫裡取出直接到treeview就行了。

你到这些贴子里看看有没有一些对你有用的东西
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2289268
http://www.delphibbs.com/delphibbs/dispq.asp?LID=2293629

看看我的YourBase， 有源码，里面有目录相关算法，速度极快。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2270238

多人接受答案了。