|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Delphi 7 CheckListBox & Memo
Добрый день, такая ситуация: Есть несколько чеклистбоксов и в зависимости от того, где стоит галка, нужно добавить определенный текст в мемо.
У меня получается только для одного активного, а если выбираю несколько (чеклистбоксов), то все обновляется. Просто накидайте идеи, а то стандартным кодом не выходит Код:
Memo1.Clear; begin if CheckListBox1.selected[1] then Memo1.Text:='бла бла бла'; end |
#2
|
||||
|
||||
Код:
var i: integer; begin Memo1.Clear; for i:= 0 to CheckListBox1.Count-1 do if CheckListBox1.selected[i] then Memo1.Lines.Add('бла бла бла'); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
В общем, да, непонятно я выразила мысль, в общем, в зависимости от того какие чекбоксы выбраны, добавляем разный текст, в конце, в мемо должен выйти список. а так если делать, то он один и тот же будет текст добавлять.
|
#4
|
|||
|
|||
И еще,нумерация в чекЛистБоксе с 0, а в Мемо с 1??
|
#5
|
||||
|
||||
Цитата:
|
#6
|
|||
|
|||
Код:
begin if CheckListBox1.selected[1] then Form2.Memo1.Lines.Add('***'); if CheckListBox1.selected[2] then Form2.Memo1.Lines.Add('ййй); end; |
#7
|
||||
|
||||
Цитата:
Код:
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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#8
|
||||
|
||||
Цитата:
|