Check-Group und case of...

[jim_raynor]

Indem du die ganzen Else weglässt und einfach die Ifs hintereinander machst.

Delphi-Quellcode:

if cgfilter.ItemChecked [2] = true then 
          qtelefonliste.SQL.Strings [4] := 'Datum = ' + '''' + (DateToStr(Date)) + '''' + ' and' ;

        if cgfilter.ItemChecked [3] = true then 
          qtelefonliste.SQL.Strings [5] := 'Prioritat = "1" and' ;

        if cgfilter.ItemChecked [4] = true then 
          qtelefonliste.SQL.Strings [6] := 'Prioritat = "2" and' ;

usw.

Da du für jeden Filter einen anderen Text hinzufügst, musst du zwangsläufig jedes einzeln abfragen.