unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】

1.unidbgrid的rowedit=true2022-09-06 2.unigui的demo-\Demos\Desktop\DBAppDemo\SimpleDemo.dproj【11】2021-05-31 3.unigui的session【1】2018-05-02 4.unigui菜单【3】2018-08-03 5.unigui的ini文件读写【6】2018-09-20 6.unigui导出TMS.Flexcel【5】2018-08-13 7.unigui+fastreport 打印【4】2018-08-11

8.unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】2023-12-16

9.unigui显示websocket服务端向客户端发送信息【15】2023-12-25 10.学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目2024-02-01 11.学习unigui【18】unidbgrid的GridsGroupingSorting2024-02-02 12.学习unigui【19】unidbgrid的Group By This Field汉化2024-02-02 13.学习unigui【20】unistringGrid2024-02-27 14.学习unigui【21】unistringGrid的标题栏动态增加2024-02-29 15.学习unigui【22】unistringGrid的标题栏双击事件2024-03-01 16.学习unigui【23】uniDBGrid的使用摘要2024-03-09 17.学习unigui【25】关于图标2024-05-30 18.学习unigui【24】Echart的使用：多个坐标系2024-04-20 19.学习unigui【26】关于Unigui控件的个性化CSS框架2024-05-31 20.学习unigui【27】像pg的jsonb一样编辑json。2024-06-03 21.unigui的菜单树补习【2】treeview2018-08-01 22.unigui的程序编译后自动运行傻傻的手动【7】2021-04-28 23.unigui的ServerModule的重要属性【8】2021-04-29 24.unigui的错误delphi clientHeight:property clientheight does not exist【10】2021-05-03 25.学习unigui【28】UniGUI接收POST/GET2024-10-16

uniTreeVviewc创建一个tree，显示患者姓名（PatientName）。因为需要用到患者ID（PatientID），所以使用help：

  TPatientTreeNode = class(TUniTreeNode)
  //strict
  private
    FPatientID: string;
    function GetPatientID: string;
    procedure SetPatientID(const Value: string);
  public
    property PatientID: string read FPatientID write FPatientID;
  end;

在增加node时：
   node.Text := fdqry_patient.FieldByName('Name').AsString + fdqry_patient.FieldByName('Patient_ID').AsString;
   node.PatientID:= fdqry_patient.FieldByName('Patient_ID').AsString;

看起来很美好。但是在过程中和关闭时，总是内存泄漏。对于node怎么释放都是泄漏。能力有限就是搞不定。

兄弟你怎么做的请告诉我。

最后没办法。使用字典绕过去。　　

    FTag : Integer;
    FPatients : TDictionary<string, string>;
在
        while not fdqry_patient.Eof do
          begin
            node :=untrvw_DeptPatient.Items.AddChild(parentNode, '');
            node.Text := fdqry_patient.FieldByName('Name').AsString + fdqry_patient.FieldByName('Patient_ID').AsString;
            node.Tag := FTag;// :=fdqry_patient.FieldByName('Patient_ID').AsString;

            FPatients.Add((IntToStr(FTag)), fdqry_patient.FieldByName('Patient_ID').AsString);
            Inc(FTag);
            fdqry_patient.Next;
            node := nil;
          end;