使用Visible
var
i : Integer;
LColumns : TArray<TColumnEh>;
begin
// 先将需要导出的列做成数组
SetLength(LColumns, 0);
for i :=0 to Columns.Count - 1 do
if Columns[i].Visible then
begin
SetLength(LColumns, LColumns.Length + 1);
LColumns[LColumns.High] := Columns[i];
end;
end;