这样的if () then....else..语句为什么不行？online wait

Question

不会啊；程序完全一样码？
换edit试试

Answer 1

if TRIM(DBEdit1.Text)='' then

Answer 2

to newyj(我是老旧（决非老舅），我还不到100岁):我copy过来的！
to genphone_ru(票票):我试一下。

Answer 3

if  Trim(DBEdit1.text)='' then ...

Answer 4

设个断点看看DbEdit1.text的值到底是什么。

Answer 5

你用showmessage(dbedit1.text)看他是不是空、
或是showmessage（inttostr(length(dbedit1.text)))看他的长度是不是‘0’

Answer 6

procedure Tmanage.Button3Click(Sender: TObject);
begin
if trim(DBEdit1.Text)='' then
MessageBox(Form1.Handle,'路线名称不能为空！','Dialog',MB_ICONQUESTION)
else
begin
ADOQuery1.Close;
ADOQuery1.Parameters.ParamByName('a11').Value:=DBEdit1.Text;
ADOQuery1.Open;
frReport1.LoadFromFile('e:\report\t1.frf');
frReport1.ShowReport;
end;end;