ثبت اطلاعات 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))