N
narduo
Unregistered / Unconfirmed
GUEST, unregistred user!
var
sqlstr:string;
begin
sqlstr:='where a='+edit1.text;//如何给edit1.text的值加上单引号?
with query1 do
begin
CLOSE;
SQL.Clear;
SQL.Add(format('select * from aaa %s',[sqlstr]));
OPEN;
end;
sqlstr:string;
begin
sqlstr:='where a='+edit1.text;//如何给edit1.text的值加上单引号?
with query1 do
begin
CLOSE;
SQL.Clear;
SQL.Add(format('select * from aaa %s',[sqlstr]));
OPEN;
end;