Problem mit checkboxen

[DeddyH]

Hmm... obwohl ich Dein Konzept nicht verstanden habe, hier eine Möglichkeit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Boxes: array[0..3] of TCheckbox; //Array definieren
    sText: string;
    i: integer;
begin
  //Array belegen
  Boxes[0] := CheckBox1;
  Boxes[1] := CheckBox2;
  Boxes[2] := CheckBox3;
  Boxes[3] := CheckBox4;
  //String initialisieren
  sText := '';
  //Anhand des Zustandes String zusammenbauen mit Leerzeichen als Trenner
  for i := Low(Boxes) to High(Boxes) do
    if Boxes[i].Checked then
      sText := sText + Boxes[i].Caption + #32;
  //letztes Leerzeichen löschen
  if Length(sText) > 0 then
    Delete(sText,Length(sText),1);
  //nur zum Testen, ggf. in SQL-Statement einfügen
  ShowMessage(sText);
end;