急！说我第2行‘=’附近有语法错误！

Question

procedure TfrmRoomBalance.DBEdit1Change(Sender: TObject);
begin
with DM, DM.qryVIP do
    begin
    if qryVIP.Active then
      begin
        if (DBText7.Caption = qryVIP.FieldByName('VIPName').AsString)  then
           DBedit2.Text := FloatToStr(StrToFloat(DBedit1.Text)*
                            (qryVIP.FieldByName('Discount1').AsFloat))
        end;
      end;
end;
想法很简单：判断dbtext7的值是否与表vip中vipname相同，相同则执行dbedit1*discount1（vip中的字段）
这样写对吗？

Answer 1

DBText7.Caption = qryVIP.FieldByName('VIPName').AsString把这里改成
trim(DBText7.Caption) = trim(qryVIP.FieldByName('VIPName').AsString)试试,也许有空格