Checkbox als Array in DB Speichern

[Jens Hartmann]

Sorry,

für das ich erst jetzt antworte. Bin leider vorher nicht dazu gekommen. Danke für Eure Info´s, habe das jetzt folgendermaßen gelößt..

Habe in meine Tabelle eine Spalte vom Typ VarChar eingebunden, und für die Speicherung jetzt so aus.

Delphi-Quellcode:

  for iCheckBoxen := 0 to 44 do
    begin
      if TCheckbox(FindComponent('CheckBox'+IntToStr(sCheckBoxen))).Checked = true then
        begin
        CheckBoxen := CheckBoxen + '1';
        inc(sCheckBoxen);
        end
      else
        begin
        CheckBoxen := CheckBoxen + '0';
        Inc(sCheckBoxen);
        end;
    end;

  QryVorgabeUPDATE.ParamByName('CB1').Value := CheckBoxen;

Das einlesen sieht so aus..

Delphi-Quellcode:

  DatenCheckBox := QryVorgabe.FieldByName('CHECKBOXEN').AsString;

  sCheckBoxen := 45;
  for iCheckBoxen := 44 downto 0 do
    begin
      CheckBoxen := Copy(DatenCheckBox,sCheckBoxen,1);
      if CheckBoxen = '1' then
        begin
          TCheckBox(FindComponent('CheckBox' + IntToStr(sCheckBoxen))).Checked := true;
        end;
      sCheckBoxen := sCheckBoxen-1;
    end;

ich denke zwar, das man da bestimmt noch was verfeinern kann. Aber im großen und ganzen funktiioniert es super.

Gruß Jens