Problema de combinación gratuita de múltiples condiciones de consulta de Delphi
Según mi entendimiento personal, parece que el problema no es grande. Solo necesita verificar si el último carácter de la declaración generada es una coma y eliminarlo si es una coma.
El código de muestra es el siguiente:?s1?:=?CheckBox1.Hint+''+CheckBox2.Hint+''+CheckBox3.Hint+''+CheckBox4.Hint+''+CheckBox5.Hint+'' +CheckBox6. ''+CheckBox7.Hint+''+CheckBox8.Hint; si?s1[Longitud(s1)]=','?entonces
s1:=?Copiar(s1,1,Longitud( s1)- 1); s2:=?CheckBox1.HelpKeyword+''+CheckBox2.HelpKeyword+''+CheckBox3.HelpKeyword+''+CheckBox7.HelpKeyword+''+CheckBox8.HelpKeyword si?s2[Longitud(s2)]=', '? entonces
s2?:=?Copiar(s2,1,Longitud(s2)-1);
sql?:=?' seleccionar?'+?s1?+?'' from?table1 ?a,table2?b?where?a.key=b.key?group?by?'+?s2; ADOQuery1.sql.add(sql); ?CheckBox1. ¿Marcado?