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简单 哭
一个dll 和一个 指针函数调用 搞了我2礼拜 还是在我有delphi基础的情况下 哭
难度 比 delphi 高很多。继续努力学啊。
好像也并不比delphi难多少吧
主要代码 不直观了� ......
delphi如何修改局域网代理和宽带拨号代理
同时修改两个地方的代理信息
up
up
UP
可以在注册表里面修改吧，UP。
注册表里修改 后 修改的是局域网的代理 不是宽带拨号的代理
网上说 ......
delphi 修改注册表的问题
procedure TForm1.Button1Click(Sender: TObject);
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry;
......
同标题，该类是DirectShow中的一个示例，求如何将其转化成Delphi代码，万分感谢！！
C/C++ code:
// 类声明
class CErrReporter : public IAMErrorLog
{
protected:
long m_lRef; // Referenc ......
