【结】动态创建DataGrid Column ，无法正常释放！**

cdz0451

procedure TCLFYTJMAIN.ClearColumn(_oGrid:TDataGrid);
var
i:integer;
nCount,nNum:integer;
oColumn:TDataGridColumn;
sName:string;
begin
    nCount := _oGrid.ColumnCount;
    for i:= 1 to nCount do
    begin
       sName := 'Field' + SysUtils.IntToStr(i);
       oColumn := TDataGridColumn(_oGrid.ColumnByName(sName));
       oColumn.Free();
       _oGrid.Refresh();
    end;

在不同的函数内，动态创建 COLUMN 列，创建前调用 ClearColumn
函数进行释放已创建的COLUMN 列。

现在无法释放。奇怪

cdz0451

结贴！
原来需要释放对应的数据源！