求助：delphhi

Question

procedure Tfrmcpxg.btnokxgClick(Sender: TObject);
begin
  if edtsrcm.Text='' or edtxgdj.Text='' or comboxgcl.Text='' then
    messagedlg('输入信息不完整！请重新输入！',mterror,[mbok],0)
   else
    begin
      adoqueryxg.Close;
      adoqueryxg.SQL.Clear;
      adoqueryxg.SQL.Add('update dishs set 菜名='+edtsrcm.Text+',单价='+strtofloat(edtxgdj.Text)+',菜类='+comboxgcl.Text+',备注='+memoxgbz.Text+'where 菜号='+edtxsch.Text);
      adoqueryxg.Open;
    end;
有错误
[Error] ucpxg.pas(70): Operator not applicable to this operand type
[Error] ucpxg.pas(70): Operator not applicable to this operand type
[Error] ucpxg.pas(76): Incompatible types: 'String' and 'Extended'delphi编译错误String

Answer 1

adoqueryxg.SQL.Add('update dishs set 菜名='+QuotedStr(edtsrcm.Text)+',单价='+strtofloat(edtxgdj.Text)+',菜类='+QuotedStr(comboxgcl.Text)+',备注='+QuotedStr(memoxgbz.Text)+'where 菜号='+QuotedStr(edtxsch.Text));

Answer 2

adoqueryxg.SQL.Add('update dishs set 菜名='+QuotedStr(edtsrcm.Text)+',单价='+Trim(edtxgdj.Text)+',菜类='+QuotedStr(comboxgcl.Text)+',备注='+QuotedStr(memoxgbz.Text)+'where 菜号='+QuotedStr(edtxsch.Text));

Answer 3

这行还是有错if edtsrcm.Text='' or edtxgdj.Text='' or comboxgcl.Text='' then

Answer 4

if (edtsrcm.Text='') or (edtxgdj.Text=')' or (comboxgcl.Text='') then