كيفية التعامل مع CheckBox و اضافته memo

[SOFIANE09]

السلام اخوني لدي مشكلة و المتمثلة في انه لي 04 CheckBox و كثكخ و اريد اضافية اثنين من CheckBox الى memo  بشرط تكون  في نفس السطر و تتخللهما فاصلة بين CheckBox و CheckBox بمعنى( CheckBox 2, CheckBox)

[Delphi4Us]

وعليكم السلام
ولو ان السؤال فيه اخطاء لغوية تجعل منه غير مفهوم مثل كلمة كثلخ ومابعدها ربما افهم انك تريد مثل

كود :

Memo1.lines.add((sener as tcheckbox)).caption + '"'

 مع جعل حدث oncheckchange لادوات check كلها لحدث واحد تضع فيه هذا الكود
مع الانتباه للكود فربما نسيت شي لانني اكتب بالنقال

[SOFIANE09]

  memo.rar (الحجم : 5.35 ك ب / التحميلات : 17)
  memo.rar (الحجم : 5.35 ك ب / التحميلات : 17)

---

السلام اخي لدي مشكلة و المتمثلة في انه لي 04 CheckBox  و اريد عند الضغط على اي   CheckBox يضاف الى memo  بشرط تكون  في نفس السطر و تتخللهما فاصلة بين CheckBox و CheckBox بمعنى( CheckBox 2, CheckBox)، و العكس عند رفع التعليم من اي CheckBox  تحذف من memo

[Ndagor]

جرب الكود

كود :

procedure TForm1.CheckBoxClick(Sender: TObject); var LS:TStringlist; S,ch:string; Idx:integer; begin   LS:=TStringlist.Create;   try     Ls.Delimiter:=',';     S:=Memo1.Lines.Text;     LS.DelimitedText:=S;     ch:=TCheckBox(Sender).Caption;     Idx:=LS.IndexOf(ch);     if TCheckBox(Sender).Checked then     begin         if Idx=-1 then           LS.Add(ch);     end       else if Idx<>-1 then           LS.Delete(Idx);     Memo1.Lines.Text := LS.DelimitedText;   finally       LS.Free;   end; end;