Var
NameStr:String;∥设置字符串中间变量
Begin
NameStr:=′王′;
Query1SQLClear{清除SQL属性中的SQL命令语句}
Query1SQLAdd(′Select*FromCustomdbwhere(Name1>=N1)and(Name2<=N2)′);∥SQL命令语句
Query1params[0]AsString:=NameStr+chr(0);∥控制参数在NameStr+Chr(0)
Query1params[1]AsString:=NameStr+chr($ff);∥和NameStr+Chr($ff)之间
Query1Open;∥打开数据库,执行SQL查询
End;