%? Alles vor und nach String abfragen?

[Ultimator]

Zitat:

Zitat von Jack23

Und was mache ich wenn ich ungefähr hm ... 600 Checkboxen habe?

:shock:
Dann hat dein Programm einen Designfehler. 600 Checkboxes is wirklich n bisschen viel. Bist du sicher, dass du die alle brauchst? Das kann ma bestimmt anders lösen.

[DeddyH]

Zitat:

Zitat von Jack23

Und was mache ich wenn ich ungefähr hm ... 600 Checkboxen habe?

1. Hast Du wahrscheinlich ein sehr großes Formular. :mrgreen:
2. Wird die SQL-Abfrage halt sehr lang und dauert auch dementsprechend.

Der Abfragestring lässt sich aber recht simpel über eine Schleife zusammenbauen.

[Jack23]

Ok ich gebe zu bis jetzt sind es ja nur 300 Checkboxen. Wie kann ich die abfrage denn aus dem Array zusammen bauen?

Bis jetzt habe ich immer das hier im Zusammenhang mit dem String genutzt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Boxes: array[0..3] of TCheckbox;
    sText: string;
    i: integer;
begin
  //Array belegen
  Boxes[0] := CheckBox1;
  Boxes[1] := CheckBox2;
  Boxes[2] := CheckBox3;
  Boxes[3] := CheckBox4;
  ...

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const InitialText = 'SELECT * FROM Tabelle WHERE ';
var Boxes: array[0..3] of TCheckbox;
    sText: string;
    i: integer;
begin
  //Array belegen
  Boxes[0] := CheckBox1;
  Boxes[1] := CheckBox2;
  Boxes[2] := CheckBox3;
  Boxes[3] := CheckBox4;
  sText := InitialText;
  for i := Low(Boxes) to High(Boxes) do
    if Boxes[i].Checked then
      sText := sText + 'wert LIKE ' + QuotedStr('%' + Boxes[i].Caption + '%') +
               ' AND ';
  if Length(sText) > Length(InitialText) then
    begin
      Delete(sText,Length(sText) - 4, Length(sText));
      Query.SQL.Text := sText;
      Query.Open;
    end;
end;