[scroyler]

Здравствуйте,При написании кода вышла ошибка,в чем проблема?

Код:

1	edit15.Text := CheckListBox1.Checked[0];

ИЗ выделенного галочкой строки копирует в едит15. делаю
вместо Check, Items работает, но мне нужно именно Check .
Помогите плз,буду благодарен

[chainik]

Код:

1 2 3 4

const Cbool:array[boolean] of string=('false','true');   Edit15.Text:=Cbool[CheckListBox1.Checked[0]];

[scroyler]

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

Код:

спасибо,конечно но не работает

[lmikle]

А ничего, что типы у edit15.Text (String) и CheckListBox1.Checked[0] (Boolean) не совместимы? Или ты хотел что-то другое (например, скопировать НАЗВАНИЕ отмеченной строки в списке галок)?

[scroyler]

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

А ничего, что типы у edit15.Text (String) и CheckListBox1.Checked[0] (Boolean) не совместимы? Или ты хотел что-то другое (например, скопировать НАЗВАНИЕ отмеченной строки в списке галок)?

ну да что бы название по очереди копировалось с чеклистобка( строки с галками) в едит

[m1sclick]

Не поможет совсем?
http://www.cyberforum.ru/delphi-begi...read97739.html

[scroyler]

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

Не поможет совсем?
http://www.cyberforum.ru/delphi-begi...read97739.html

не то,совсем не то

[v1s2222]

У CheckListBox 'a разве нету "Items"???
Научитесь поиском пользоваться!

Код:

1	Caption := CheckListBox.Items[0]; // или же Items.Strings[0]

Если надо вывести именно флаг (True/False, 0/1):

Код:

1	Caption := BoolToStr(CheckListBox.Checked[0], True); // True значит выводить ответ True/False

ЗЫ на будущее: прежде чем на форум "бежать" надо открыть любой справочник по Делфи, найти тему VCL component CheckListBox и почитать.

[scroyler]

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

У CheckListBox 'a разве нету "Items"???
Научитесь поиском пользоваться!

Код:

Если надо вывести именно флаг (True/False, 0/1):

Код:

ЗЫ на будущее: прежде чем на форум "бежать" надо открыть любой справочник по Делфи, найти тему VCL component CheckListBox и почитать.

что бы название по очереди копировалось с чеклистобка( строки с галками) в едит

Либо ты написал что то не то,либо я не понял

[m1sclick]

Я вижу ты совсем недалекий.....

Код:

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.