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 像亡国的南宋，试问这语言还有前途吗？
Win32开发不如C#；
面像对像开发不如JAVA；
系统开发不如VC++6.0；
能用性不如VB6.0；
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗？
......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......
网上看了很多帖子 方法都一样 调试起来都不行
虽然 IE 选项中已经完成了 代理的设置
但是 访问起来还是不行 譬如 访问www.ip138.com
已经是本机IP
我的代码 就是根据网上普遍的代码 修改的 请 ......
我按网上介绍delphi之声音资源(*.res)的编译方法去试着做，在DOS输入命令后去出错，这是为什么？我也把文件放在了./borland/delphi7/bin/目录下,和BRCC32.exe在同一目录下,但就是生不出res文件，怎么会这样的呢？谢� ......
