一个关于截获异常的问题!!!!!!急!在线等!!!
procedure TForm41.Button1Click(Sender: TObject); //按录入时间
var
MyLocate : Boolean;
SOpt : TLocateOptions;
str : string ;
str1 : string ;
str2 : string ;
str3 : string ;
str4 : string ;
str5 : string ;
begin
Memo1.Text := '' ;
str4 := ' ' ;
str5 := '' ;
ADOQuery1.SQL[2] := '' ;
str := datetostr(DateTimePicker1.Date );
str1 := datetostr(DateTimePicker3.Date) ;
str2 := ' 日期 >= ## ' ;
str3 := ' and 日期 <= ## ' ;
insert(str,str2,14) ;
insert(str1,str3,19) ;
insert(str2,str3,2) ;
insert('where',str3,1) ;
showmessage(str3) ;
ADOQuery1.SQL[2] := str3 ;
if ADOQuery1.Active = false then
ADOQuery1.Active := true ;
if ADOTable1.Active = false then
ADOTable1.Active := true ;
With ADOQuery1 do
begin
if IsEmpty then
Exit;
try
First ;
SOpt := [loCaseInsensitive];
MyLocate := ADOTable1.Locate('提示信息',ADOQuery1.Fields[0].asstring,SOpt) ;
while not Eof do
begin
memo1.Lines.Add(str5 + ADOTable1.Fields[1].AsString) ;
memo1.Lines.Add(str4 + ADOQuery1.Fields[0].asstring);
ADOQuery1.Next;
end;
except
while not Eof do
begin
memo1.Lines.Add(str5 + ADOTable1.Fields[1].AsString) ;
memo1.Lines.Add(str4 + ADOQuery1.Fields[0].asstring);
ADOQuery1.Next;
end;
end ;
end;
end
这是我的一个关于查询过往的提示信息的一段代码,
现在老是报Value assigned to ’Mylocate’ never used 赋给<NAME>的值从未使用过
这个错,我也加了异常的处理啊
但是好像没有用的啊
还是报这个错
大虾们帮我看看那里错了啊