Question

delphi能不能像SQL那样动态拼语句

Answer 1

i := Pos('[', sCondition);
j := Pos(']', sCondition);
if s <> '' then
if (QryTemp.FieldByName('flag').AsInteger = 1) then
s := s + ' and '
else
s := s + ' or ';
s := s + Copy(sCondition, i+1, j-i-1)
sCondition := Copy(sCondition,j+1, Length(sCondition)-j);
until Pos('[') = 0;