摘要：
摘自：一个表，三个字段Id : 结点的ID整型的ParentId : 父结点的ID，没有父结点则为0Name : 结点的文本。{ 装入目录 }procedure TMainForm.LoadFolder;function GetParentNode(Id: integer): TTreeNode;vari iCount:integer;beginresult := nil;with TreeView dobeginiCount := Items.Count - 1;for i := iCount downto 0 doif integer(Items[i].Data) = Id thenbeg 阅读全文
摘要：
#4楼 得分：0回复于：2011-06-17 09:51:44[code=Delphi(Pascal)]unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Menus;type TAInfo = class private FID: integer; FPId: integer; FName: String; public constructor Create ; overload ; co 阅读全文