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

[xahddata]

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!
不知什么原因？希望赐教~`

[xahddata]

呵呵 问题自己解决的了。

[xahddata]

请 zxf_feng 说说 断点 调试的详细步骤。我以前设过。但是都没成功过。 可能还是不得法。请赐教

[大大怪老张]

'' is not a valid integer value!


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

一般 delphi 调试状态下遇到错误，delphi ide 环境会把光标定位到出错的下一行或者几行代码，你需要自己往前看下 call stack , ctrl + alt + s 看看。

[gyk120]

''的这个类型不正确

[gzmhero]

贴了这些都是没用的代码。这行没问题，这行前面的代码是什么？

[阿三]

设置一下断点,单步跟踪看一下具体哪句出错.