Gerry的专栏

uses cxGridExportLinkExportGridToExcel('*.xls', cxgrid1, True, true);ExportGridToHTML('*.html', cxgrid1, True, true);ExportGridToXML('*.xml', cxgrid1, True, true);ExportGridToTEXT('*.txt', cxg

var  S:String;  i:Integer;begin  S:='';  fori := 0 to ListBox1.Items.Count -1 do  begin    ifS = '' then      S :=  QuotedStr(ListBox1.Items[i])    else      S :=