Замена const aArE: array of String; CheckListBox'ом

[grafgrial]

Подскажите плиз.
Кодик писал недавно, и все прописал через

const  aArE: array[1..4] of String = ( 'klo.g', 'klo.f', 'klo.l', 'klo.j');

а сегодня че то вздумалось через CheckListbox. Как сделать?

[mihali4]

Внести эти значения в качестве итемсов в CheckListbox...

[grafgrial]

ну а как прописать в функцию
к примеру

EnuРнs(aArE, Memo1.Lines);

где aArE та константа которую нужно заменить

[mihali4]

Так же, как и с обычным листбоксом:
CheckListBox1.Items.Strings[i] - это ваша константа

[grafgrial]

Вроде поставил, но читает только последний выделенный (а не те которые выделены)

[grafgrial]

2.bmp
Читает только последний выделенный (Klo.k), а мне нужно чтобы читал (klo.g и klo.k)

[Stilet]

Читает только последний выделенный

Деньги есть? Высылай. Ато мой телепатор на СТО проверяется, куплю новый.

[grafgrial]

for i:=0 to CheckListBox1.Count-1 do
begin
   if checklistbox1.Checked[i]=true then
begin
Label1.Caption:=CheckListBox1.Items.Strings[i];
end;

[Stilet]

Может так?:

for i:=0 to CheckListBox1.Count-1 do
begin
   if checklistbox1.Checked[i]=true then
     Label1.Caption:=Label1.Caption+' '+CheckListBox1.Items[i];
end;

[T_I_T_A_N]

grafgrial Репутация: 16 а такую чушь спрашивает..