ثبت اطلاعات Chech Boxt در بانک sql

[khoshblagh]

با سلام خدمت دوستان
من با کد زیر اطلاعات یک Check Group را در بانک sql ثبت مینمایم

  ',Tag206='+chkGoroh2.Checks[6].Checked.ToString+

اما برای Check Box به روش زیر نمی توانم. علت چیست؟

',HosnaAnjamKar='+(chkHosnAnjamKar.Checked.ToStrin  g) 

ضمنا نوع فیلد Bit می باشد. متشکرم

[یوسف زالی]

سلام. شما اطلاعات کل یک چک گروپ رو می تونید در یک فیلد عددی ذخیره کنید.
اما در خصوص بیت، بهتره یک شرط بگذارید براش

BoolToStr

یا

IfThen(check1.Checked, '1', '0')

[khoshblagh]

با سلام و تشکر از جناب آفای زالی
شما فرمودیدکل یک چک گروپ رو می تونید در یک فیلد عددی ذخیره کنید.
در صورت امکان نمونه و یا مثال ارائه بفرمائید. متشکرم

[یوسف زالی]

این نمونه کد قدیمی منه که باهاش کار می کردم:

uses Math;

.

.



function CheckBoxToInt(CheckListBox: TCheckListBox;

  Backward: boolean = false): Int64;

var

  i, Id: integer;

begin

  Result := 0;

  for i := CheckListBox.Count - 1 downto 0 do

  begin

    Id := IfThen(Backward, CheckListBox.Count - i - 1, i);

    Result := Result shl 1 + Ord(CheckListBox.Checked[Id]);

  end;

end;





procedure IntToCheckBox(const Value: Int64; CheckListBox: TCheckListBox;

  Backward: boolean = false);

var

  i, Id: integer;

  F: Int64;

begin

  F := 1;

  for i := 0 to CheckListBox.Count - 1 do

  begin

    Id := IfThen(Backward, CheckListBox.Count - i - 1, i);

    CheckListBox.Checked[Id] := (Value and F) > 0;

    F := F shl 1;

  end;

end;

[دلفــي]

با سلام خدمت دوستان
من با کد زیر اطلاعات یک Check Group را در بانک sql ثبت مینمایم

  ',Tag206='+chkGoroh2.Checks[6].Checked.ToString+

اما برای Check Box به روش زیر نمی توانم. علت چیست؟

',HosnaAnjamKar='+(chkHosnAnjamKar.Checked.ToStrin  g) 

ضمنا نوع فیلد Bit می باشد. متشکرم

'HosnaAnjamKar='+ IntTostr(Byte(chkHosnAnjamKar.Checked))