'' is not a valid integer value! 错误提示

xahddata 2008-06-18 11:29:02
if MessageDlg(' 是否保存 ?', mtInformation, [mbYes, mbNo], 0) = mrYes then
begin
DataT := formatdatetime('yymmdd',date);
ProNum := DataT+RandToChar;

{ 窗口产生时数据自动保存}
DBChart1.SaveToMetafile(GetExePath +'CollePic\P'+ProNum+'.wmf'); // CollePic\
DB_DBChart2.SaveToMetafile(GetExePath +'CollePic\DB'+ProNum+'.wmf'); // CollePic\

// 将 Access 数据导入到 Excel 中
ADOConnectionAccessToExcel.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='+
GetExePath +'Database\wava.mdb;Persist Security Info=True';
query1.close;
query1.sql.clear;
query1.sql.add('select * from wavetable');
query1.open;


if query1.recordcount <>0 then
begin
ADOConnectionAccessToExcel.execute('Select * Into [Excel 8.0;DATABASE='+GetExePath +'ColleExporttoExcel\'+ProNum+'.XLS].[数据采集] FROM [wavetable]'); //导为 *.xls
ADOConnectionAccessToExcel.close;
end;
{ 结束 窗口产生时数据自动保存}
if not Assigned(ColleInfoForm1) then
begin
ColleInfoForm1:=TColleInfoForm1.create(Application);
ColleInfoForm1.showmodal;
freeandnil(ColleInfoForm1);
end;
end
else
begin
//存储清除
query1.close;
query1.sql.clear;
query1.sql.add('select * from wavetable');
query1.open;
if query1.recordcount<>0 then
begin
query1.close;
query1.sql.clear;
query1.sql.add('delete from wavetable');
query1.ExecSQL;
query1.close;
//==================================================================
// Application.MessageBox('数据成功删除!','提示信息',mb_ok);
//------------------------------------------------------------------
SeriesTimer.Enabled:=False; //时钟置为 0
EditColleTime.Enabled:=true;
//EditColleTime.text:='0';
EditTimeX.text:='0'; //采集源置 0
EditPtY.text:='0';
EditPrY.text:='0';
EditAx.text:='0';
//------------------------------------------------------------------
CollectionQuery.Close;
CollectionQuery.Open;
end
else
begin
exit;
end;
//存储清除

end;

注释: 其中参数ProNum:类型是string
调试错误指示在这行: if MessageDlg(' 是否保存 ?', mtInformation, [mbYes, mbNo], 0) = mrYes then
错误提示是: '' is not a valid integer value!
不知什么原因?希望赐教~`
...全文
4444 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
阿三 2008-06-18
  • 打赏
  • 举报
回复
设置一下断点,单步跟踪看一下具体哪句出错.
gzmhero 2008-06-18
  • 打赏
  • 举报
回复
贴了这些都是没用的代码。这行没问题,这行前面的代码是什么?
gyk120 2008-06-18
  • 打赏
  • 举报
回复
''的这个类型不正确
大大怪老张 2008-06-18
  • 打赏
  • 举报
回复
'' is not a valid integer value!


这个错误一般是在 IntToStr 的时候如果参数为 '',就会报。

一般 delphi 调试状态下遇到错误,delphi ide 环境会把光标定位到出错的下一行或者几行代码,你需要自己往前看下 call stack , ctrl + alt + s 看看。
xahddata 2008-06-18
  • 打赏
  • 举报
回复
请 zxf_feng 说说 断点 调试的详细步骤。我以前设过。但是都没成功过。 可能还是不得法。请赐教
xahddata 2008-06-18
  • 打赏
  • 举报
回复
呵呵 问题自己解决的了。

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧