delphi导出后长数据显示不全
Delphi(Pascal) code:
procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString='' then
begin
Application.MessageBox('列表为空，无法导出！','错误操作',MB_OK+MB_ICONError);
exit;
end;
//导出数据
SaveDialog1.FileName:='派出信息';
if SaveDialog1.Execute then
begin
filename := concat(SaveDialog1.FileName,'.xls');
try
MSExcel:=CreateOLEObject('Excel.Application');
xlBook:=MSExcel.WorkBooks.Add;
xlsheet:=xlBook.Worksheets['sheet1'];
for col:=1 to DBgrid1.Columns.Count do
begin
xlsheet.Cells.item[1,col]:=DBgrid1.Columns[col-1].Title.Caption;
j:=1;
adoquery1.First;
while not ADOQuery1.Eof do begin
DBGrid1.SelectedRows.CurrentRowSelected:=True;
xlsheet.Cells.item[j+1,col]:=DBGrid1.Fields[col-1].AsString;
ADOQuery1.Next;
j:=J+1;
end;
end;
xlBook.SaveAs(filename);
MSExcel.WorkBooks.close;
MSExcel.Quit;
MSExcel:=unassigned;
except
Application.Messagebox('Excel没有安装!','错误提示',MB_ICONERROR+mb_Ok);
exit;
end;
end;
end;
上面是代码,得在哪里加上一句设置列为文本型的语句....把列类别改成文本型后
相关问答：
delphi内置的加密解密单元是哪个？
Delphi有内置加密解密单元？
delphi里有个加密和解密的单元
引用
delphi里有个加密和解密的单元
是哪个？
windows的api？
标准加密的源代码，网上 ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
如何实现delphi 提交表单
我的思路是 webbrowser1 打开 谷歌
然后 鼠标 点击到 搜索里面
然后 输入 要搜索的关键字 然后 点击 搜索
我现在就是 如何 添入 要搜索的关键字 不� ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
如何用数组跟for打印出下面的图形
*
**
***
****
如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: I ......
