delphi - 如何在delphi 2010中显示父类别？

Question

好的，我正在使用 Embarcadero Delphi 2010。目前我正在使用flib.mdb在该文件中命名的 Access 数据库文件，我创建了一个名为的表MCategory，其中有 4（四）列命名：codecategory作为文本和主键，parentcategory作为文本，category作为文本，notes作为文本。

对于数据库连接，我使用 ADOConnection。对于查询，我使用 ADOQuery。对于表，我使用 ADOTable。

因为代码是使用前缀自动生成的，但对于示例，我使用常规数字作为字符串。

只有一个ROOT：codecategory="0" // parentcategory="" // category="ROOT"不允许添加另一个ROOT（父类别为空的那个）

我的问题是如何重新屏蔽所有父类别，如下图所示？以及如何在 DBGrid 上查看它？

我应该使用递归吗？有什么简单的方法可以做到吗？

还有请在 Delphi 2010 中使用源代码.... ^^

Answer 1

您可以将数据集的所有记录转换为 TStringList 并对其进行排序。

在接口部分声明这个：

TForm1=class(...)
  RecordList:TStringList;
  constructor Create(AOwner:TComponent);override;
 destructor Destroy;override; 

end;
TCategoryItem=class
public:
   CategoryTitle:string;
   Id,ParentId:Variant;
end;

在实施部分：

constructor TForm1.Create(AOwner: TComponent);  
begin
  inherited ;
  RecordList:=TstringList.create(true);  //  use this code in FormCreate  also


end;
 destructor TForm1.Destroy;
    begin
      ...
   RecordList.Free;//  use this code in FormDestory  also

    end;

procedure TForm1.AdoQuery1AfterOpen(DataSet:TDataSet);
var
  Item,RootItem:TCategoryItem;
begin
  DataSet.First;
  DataSet.DisableControls;

  try
   (*add abstract root item to RecordList if needed 
     RootItem:=TCategoryItem.Create;
     RootItem.CategoryTitle:='ROOT';
     RecordList.AddObject('',RootItem);*)
    while not DataSet.Eof do
    begin
      Item:=TCategoryItem.Create;
      Item.CategoryTitle:=DataSet['Cateogory'];
      Item.Id:=DataSet['CodeCategory'];
      Item.ParentId:=DataSet['ParentCategory'];
      RecordList.AddObject(VarToStr(Item.Id),Item);
      DataSet.Next;
    end;
  finally
    RecordList.Sort; // for use find(binary search)
    DataSet.EnableControls;
    DataSet.First;
  end;
end;
procedure TForm1.OnGetFieldText(Sender: TField; var Text: string;
  DisplayText: Boolean);
var 
  Idx:Integer;
  ParentValue:Variant;
  Item:TCategoryItem;
  Texts:TStringList;
begin
  ParentValue:=Sender.Value;
  Texts:=TStringList.create;
  try
    while RecordList.Find(varToStr(ParentValue),Idx) do
    begin
      Item:=RecordList.Objects[Idx] as TCategoryItem; 
      Texts.Insert(0,Item.CategoryTitle); 
      ParentValue:=Item.ParentId;
    end;
    Texts.Delimiter:='>';
    Text:=Texts.DelimitedText;
  finally
    Texts.Free;
  end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.FieldByName('parentcategory').OnGetText := OnGetFieldText;
  ADOQuery1.Refresh;
end;