[freya_pc]

Добрый день, такая ситуация: Есть несколько чеклистбоксов и в зависимости от того, где стоит галка, нужно добавить определенный текст в мемо.
У меня получается только для одного активного, а если выбираю несколько (чеклистбоксов), то все обновляется.
Просто накидайте идеи, а то стандартным кодом не выходит

Код:

 Memo1.Clear;
  begin
    if CheckListBox1.selected[1] then
      Memo1.Text:='бла бла бла';
end

[Alegun]

Код:

var
i: integer;
begin
Memo1.Clear;
for i:= 0 to CheckListBox1.Count-1 do 
    if CheckListBox1.selected[i] then Memo1.Lines.Add('бла бла бла');
end;

[freya_pc]

В общем, да, непонятно я выразила мысль, в общем, в зависимости от того какие чекбоксы выбраны, добавляем разный текст, в конце, в мемо должен выйти список. а так если делать, то он один и тот же будет текст добавлять.

[freya_pc]

И еще,нумерация в чекЛистБоксе с 0, а в Мемо с 1??

[poli-smen]

Сообщение от freya_pc

И еще,нумерация в чекЛистБоксе с 0, а в Мемо с 1??

Нет, в Мемо нумерация тоже с нуля. На вскидку я даже и не вспомню где нумерация не с нуля, разве что нумерация строк и столбцов в Excel-е с единицы.

[freya_pc]

Код:

 begin
    if CheckListBox1.selected[1] then Form2.Memo1.Lines.Add('***');
    if CheckListBox1.selected[2] then Form2.Memo1.Lines.Add('ййй);
  end;

[Alegun]

Сообщение от freya_pc

...

Код:

const
txt: array[0..4] of string = ('первая','вторая','третья','четвёртая','итд.');
...
var
i: integer;
begin
Memo1.Clear;
for i:= 0 to High(txt) {CheckListBox1.Count-1} do 
    if CheckListBox1.selected[i] then Memo1.Lines.Add(txt[i]);
end;

[poli-smen]

Сообщение от freya_pc

Код:

 begin
    if CheckListBox1.selected[1] then Form2.Memo1.Lines.Add('***');
    if CheckListBox1.selected[2] then Form2.Memo1.Lines.Add('ййй);
  end;

Не пойму почему здесь selected. Может всё же Checked?