delphi 遍历 DBGrid.Columns.Items[i].Title.Caption

  for i:=0 to DBGrid.Columns.Count-1 do

  xls.Sheets[0].Asstring[i, 0] := DBGrid.Columns.Items[i].Title.Caption;