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.

[alcaeus]

Zitat von JSB:

Ich habe nicht gemeint das du bei MICRROSOFT arbeitest!
(Wie könnte/kann man nur darüber glücklich sein? =SCHADE!.?)

Ist OT, und ich habe meine Gruende dafuer

Zitat von JSB:

Das ist ja das Prob.
Ich möchte mehrere Auswahlen möglich machen. Eine TRadioGroup kann nicht das Richtige sein. Eine CheckList schon....
ABER: WIE!

So langsam kommt mir vor ich rede mit einer Wand
Hast du denn die Moeglichkeit mit der Schleife probiert, oder ueberhaupt angesehn?

Greetz
alcaeus

[JSB]

Zitat von alcaeus:

So langsam kommt mir vor ich rede mit einer Wand
Hast du denn die Moeglichkeit mit der Schleife probiert, oder ueberhaupt angesehn?

Ja habe ich! Und nochmals:

[Fehler] fTelefonliste.pas(162): Ordinaltyp erforderlich

[jim_raynor]

Meinen Beitrag beachtet wieder niemand beachtet

Über ein Schleife wirst du es nicht vernüftig lösen können solange die Filter für die einzelnen Checkboxen einen unterschiedlichen Aufbau haben.

[JSB]

Danke! Aber es ist immer noch zuviel aufwand ...

[Stevie]

Wie wär's denn mit

Delphi-Quellcode:

for i := 0 to Pred(cgfilter.Count) do
  if cgfilter.Checked[i] then
    case i of
      0: qTelefonliste.SQL.Strings [2] := 'BEZUGSPERSON =';
      {...}
    end;

[JSB]

Delphi-Quellcode:

 procedure TfmTelefonliste.pbOKClick(Sender: TObject);
  var i: Integer;
begin
 for i := 0 to Pred(cgfilter.Items.Count) do
    if cgfilter.ItemChecked[i] then
      case i of
        0: qTelefonliste.SQL.Strings [2] := 'BEZUGSPERSON =';
        1:
        begin
          qMitarbeiter.SQL.Strings [3] := '''' + dDatabase.iqLogin.fieldbyname('MitarbeiterID').AsString + '''';
          qMitarbeiter.Active := True;
          codesite.SendMsg('Abteilung= ' + qMitarbeiter.fieldbyname('ABTEILUNG').asString + '      ' + 'TAETIGKEITSBEREICH= ' + qMitarbeiter.FieldByName('TAETIGKEITSBEREICH').AsString);
          //  ShowMessage ('MitarbeiterID= ' + qMitarbeiter.fieldbyname('ID').AsString);
          //  ShowMessage ('Abteilung= ' + qMitarbeiter.fieldbyname('ABTEILUNG').asString + '      ' + 'TAETIGKEITSBEREICH= ' + qMitarbeiter.FieldByName('TAETIGKEITSBEREICH').AsString);
          if (qMitarbeiter.fieldbyname('ABTEILUNG').AsString = '') and (qMitarbeiter.FieldByName('TAETIGKEITSBEREICH').AsString = '')  then
            MessageDlg('Der Filter: "Mein Bereich",'+#13+#10+'kann nicht verwendet werden!'+#13+#10+'Bitte prüfen Sie ob die Felder ABTEILUNG '+#13+#10+'und TÄTIGKEITSBEREICH in den Mitarbeiterdaten gefüllt '+#13+#10+'wurden!'+#13+#10+'Wenden Sie sich ggf. an den Administrator!', mtError, [mbOK], 0)
          else
            qTelefonliste.SQL.Strings [3] := 'BEREICH = ' + '''' + qMitarbeiter.fieldbyname('ABTEILUNG').AsString + '''' +  ' or BEREICH =' + '''' + qMitarbeiter.fieldbyname('TAETIGKEITSBEREICH').AsString + '''' + ' and ';
        end;
  end;
end;

Klappt...
Danke!!