mas2 aku nanya donk aku punya komponen checbox sekitar 20 trus ada captionnya nah gmana caranya agar aku bisa nampung caption check box yg ke cjeck list ke dalam komponen memo aku dah coba seperti ini procedure TFrmProduk.takeCaption; var i: integer; begin for i := 1 to ComponentCount - 1 do begin if Components[i] is TCheckBox then begin if (Components[i] as TCheckBox).Checked = true then Memo1.Lines.Add(Components[i].Name); end; end; end; untuk name bisa cman ko untuk caption ko ga bisa tolong donk

Memo1.Lines.Add(Components[i].Name);

diubah menjadi : Memo1.Lines.Add(TCheckBox(Components[i]).Caption); dan juga loop dengan i harusnya dimulai dari 0, bukan 1. jrp

wah kedahuluan ama @jrp....

:D dari Jogja juga dab? :D

iya mas......

makasih mas udah bisa. cma ad 1 lgi nih . klo msalkan di check box.captionnya itu seperti ini 1.makan 2.ngemil 13.bangun 17. belanja nah yg ingin diambilnya itu hanya text yg tidak mengandung titik dan angka gmana mas mksih sbelumnya

sCaption := TCheckBox(Components[i]).Caption; s := ''; for i := 1 to length(sCaption) do if not (sCaption[i] in ) then s := s + sCaption[i]; sCaption := s;

procedure TFrmProduk.takeCaption; var i, j: integer; scaption, s: string; begin Memo1.Lines.Clear; for i := 0 to ComponentCount - 1 do begin if Components[i] is TCheckBox then begin if (Components[i] as TCheckBox).Checked = true then scaption := (TCheckBox(Components[i]).Caption); end; s := ''; for j := 1 to length(sCaption) do if not (sCaption[j] in ) then s := s + sCaption[j]; sCaption := s; Memo1.Text := s; end; tpi yg keluar hanya 1 caption check box saja bagaimana yah mas

pake regular expression xixix :mrgreen: