Question

求DELPHI语句

procedure Tdayin.Button1Click(Sender: TObject);
begin
if DBEdit1.Text='否' then
dayin.Print
else
close;
end;
而DBEdit1显示的值明明是'否'却不进行打印作业，
如果把编码改成
procedure Tdayin.Button1Click(Sender: TObject);
begin
if DBEdit1.Text<>'否' then
dayin.Print
else
close;
end;
则能打印
这样在DBEdit1为'否' 或'是'都打印,不能实现我想要的筛选打印功能,
请问怎样改语句能实现为'否'进行打印, 否则退出哪?

Answer 1

procedure Tdayin.Button1Click(Sender: TObject);
begin
if Trim(DBEdit1.Text)='否' then // 可能有空格,去掉再试试
dayin.Print
else
close;
end;

Answer 2

你可以在判断之前加一个showparameter(DBEdit1.Text) 看看里面到底得到的是什么内容怀疑你其他的什么地方错了。传值没传明白，试试看