Я вижу ты совсем недалекий.....
Код:
1 2 3 4 5 6 7 8 9 10 11 | procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
i: integer;
begin
str:='';
for i := 0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.Checked[i] then
str:= str+CheckListBox1.Items.Strings[i]+', ';
Edit1.Text:=str;;
end;
|
Этот код копирует названия выделенных элементов в Edit.
Код:
1 2 3 4 5 6 7 8 9 10 | procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
i: integer;
begin
str:='';
for i := 0 to CheckListBox1.Items.Count - 1 do
str:= str+CheckListBox1.Items.Strings[i]+', ';
Edit1.Text:=str;;
end;
|
Этот код копирует названия всех элементов в Edit - даже не выделенных.
Для заметки: я руководствовался ссылкой что дал вчера ибо прежде никогда не использовал этот элемент. Если тебя это не устроит то я даже не знаю, пытайся и дальше присвоить в string - boolean.
21.10.2011, 10:19
Древовидный вид