Printable View
با سلام خدمت دوستان
من با کد زیر اطلاعات یک Check Group را در بانک sql ثبت مینمایم
',Tag206='+chkGoroh2.Checks[6].Checked.ToString+
اما برای Check Box به روش زیر نمی توانم. علت چیست؟
',HosnaAnjamKar='+(chkHosnAnjamKar.Checked.ToStrin g)
ضمنا نوع فیلد Bit می باشد. متشکرم
سلام. شما اطلاعات کل یک چک گروپ رو می تونید در یک فیلد عددی ذخیره کنید.
اما در خصوص بیت، بهتره یک شرط بگذارید براش
BoolToStr
یا
IfThen(check1.Checked, '1', '0')
با سلام و تشکر از جناب آفای زالی
شما فرمودیدکل یک چک گروپ رو می تونید در یک فیلد عددی ذخیره کنید.
در صورت امکان نمونه و یا مثال ارائه بفرمائید. متشکرم:تشویق:
این نمونه کد قدیمی منه که باهاش کار می کردم:
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;
نقل قول:
نوشته شده توسط khoshblagh
'HosnaAnjamKar='+ IntTostr(Byte(chkHosnAnjamKar.Checked))