CheckLisstBox ta seçilmiş öğelerin String katarına aktarılması

[barutali]

Daha güncel bir delphi sürümü kullansaydınız Generics.Collections ile çözerdik ama bu da işinizi görür. 

function CheckListBoxItems2CommaText(const ACheckListBox: TcxCheckListBox): string;
var
 TempList: TStringList;
begin
 TempList := TStringList.Create;
 try
   for var I := 0 to ACheckListBox.Items.Count - 1 do
   begin
     if ACheckListBox.Items[I].Checked then
       TempList.Add(ACheckListBox.Items[I].Text);
   end;

   // CommaText aralarına virgül koyarak listesi döndürür.
   // CSV Mantığında çalıştığı için boşluk, virgül vb. varsa otomatik olarak " karakteri atar.
   // Onu da ' karakteri ile değiştiriyoruz.
   // Kullandığın DB'nin Double Quote desteği varsa replace i iptal edebilirsin.
   Result := StringReplace(TempList.CommaText, '"', '''', [rfReplaceAll]);
 finally
   TempList.Free;
 end;
end;

Kullanımı 

Memo1.Text := CheckListBoxItems2CommaText(cxCheckListBox1);