D
dreamblue
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
flag:boolean;
begin
str:='';
flag:=inputquery('请输入过滤条件','过滤条件',str);
if flag then
try
adotable1.filtered:=false;
adotable1.filter:=str;
adotable1.filtered:=true;
except
showmessage('过滤条件错误,无法执行');
adotable1.filtered:=false;
end;
end;
请问为何要给str赋空值,str:=''
好象我去掉这一行也可以,但我还是想知道为何要这样做。
var
str:string;
flag:boolean;
begin
str:='';
flag:=inputquery('请输入过滤条件','过滤条件',str);
if flag then
try
adotable1.filtered:=false;
adotable1.filter:=str;
adotable1.filtered:=true;
except
showmessage('过滤条件错误,无法执行');
adotable1.filtered:=false;
end;
end;
请问为何要给str赋空值,str:=''
好象我去掉这一行也可以,但我还是想知道为何要这样做。