_倔强

摘要： 没什么好说的，就是一个导出Excel的功能，代码如下：function TExportToExcel.Export(SGrid_List: TStringGrid;filename:string;out Errstr:string): Boolean;var excelapp:Variant; page:Variant; i,j:Integer; savedialog:TSaveDialog; strsavefile:string;begin try result := false; savedialog := TSaveDialog.Create(self); ... 阅读全文