学习PASCAL小记（二）
第三个例子，用两视图去显示ini文件的数据。
一看到这个就用了poro类，也顾不了那么多了，把这样一个实体类建立起来，接着就想用了。找了很久没有发现有get/set生成coding的选项，只能自己一个一个属性地去添加它们的方法。当把这个类弄完之后，想起Pascal还有一个数据类型叫做record的没有用，到现在还未用。下一步要考究的课程。
下一步就去让delphi去连接ini文件，然后就是对ini文件的读。这个时候遇到一个TStrings类型，空上类型很有趣的，就像JAVA中的List这个接口一样，不可以创建的。声明ss变量，然后ss := TStringList.Create ;这样去创建对象。
读取ini文件的DAO为
unit DAOUnt;
interface
uses
?? StaffDM, IniFiles, Classes;
type
? TStaffDAO = class
? private
? var
???? Staff : TStaff ;
???? IniFile : TIniFile ;
? public
??? function GetStaff(FileName,StaffID : string) : TStaff ;
??? function GetStaffIDSet(FileName : string):TStrings ;
? end;
implementation
?
function TStaffDAO.GetStaffIDSet(FileName : string):TSTrings;
var
?? ss : Tstrings ;
begin
????? ss := TStringList.Create ;
????? IniFile := TIniFile.Create(FileName) ;
????? IniFile.ReadSections(ss);
????? IniFile.free ;
????? GetStaffIDSet := ss ;
end;
?
function TStaffDAO.GetStaff(FileName, StaffID : string) : TStaff ;
var
?? str : string;
begin
? Staff := TStaff.Create() ;
? IniFile := TIniFile.Create(FileName);
? Staff.SetName(IniFile.ReadString(StaffID, 'name', '')) ;
? Staff.SetAge(IniFile.ReadInteger(StaffID, 'age', 0));
? IniFile.Free ;
? GetStaff := Staff ;
end;
end.
创建TiniFile对象，构造函数带上一个文件的路径名。下面显示为ini文件。
[section1]
name=张三
age=26
?[section2]
name=李四
age=26
上面读取ini文件的时候，用了两方法，第一个方法把sections读入到TStrings中，也是上面的ini文件中section1与section2等这些字符串。为什么要放入TStrings类型中呢，为什么用这两个东西来封装这样的数据呢？因为这个在显示中很有用，很多控件在数据读取时很喜欢这样的数据类型。例如：CmbBoxDB为TComboBox类型，CmbBoxDB.Items := ss ;就可以给空上组合框增加数据了；TreeViewDB为TTreeView类型，TreeViewDB.Items.Add(nil,ss.Strings[i]) ;表示显示在树控件上，i表示循环中的i，也就是把TStrings看成一个数组，一个内容读出来的显示在树控件的节点上。
总结到现在，基大方面的知识点已经差不多了，有一个很让人头痛的问题就是内存的释放，创建了一个对象，它不会像JVM那样有一套很好的垃圾回收，你创建了什么对象，也就要释放什么对象。很令人心烦的，经常出错，经常的内存问题。这个必须去注意。
另个一个很有意思的就是工具栏：
?结构：
?要加上一个工具栏，先加上一个TCoolBar，然后加上一个TToolbar。下次记得在这个位置，不要错了，也不要浪费时间去找了。
?我们看到的ToolButton是放在工具栏上面的，还有一个很特别的内容就是，这些Button里面可以加上一些图标。来自哪里？上面的结构有一个对象叫做ImageList1,这个就是存认所有图标的对象，让这个东西与TToolBar类型的一个Images属性，把ImageList1对象关联上去就可以了，在创建Button的时候，就会有一个ImagesIndex属性，选择索引就会快显示图标了。这个内容探索了很久很久。
对于ImageList1对象，加入图标很方便，如下图就可以了，注意格式ico的好。这个控件在上面的win32也能找到。
完了这个控件，还有一个组合框的，有一个小的知识点找了很久，就是设置默认显示，CmbBoxDB.ItemIndex := 0 ;这样设置。
最后，总结一下那个树控件，一个有用的就是找到选择的节点，把这个节点信息显示出来，这个事件是对TTreeView控件写的事件响应该，然后找到这个控件中被选择的树节点。
procedure TMainFrm.TreeViewDBClick(Sender: TObject);
var
??? Node : TTreeNode ;
begin
?????? Node := treeViewDB.Selected ;
?????? ShowTreeStaff(Node.Text) ;
end;
?
好了，这个例子，就是熟悉vcl控件，还有一个就是对对象的创建与释放是一个很值得注意的问题。
