[scroyler]

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

Код:

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

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

[chainik]

Код:

const
Cbool:array[boolean] of string=('false','true');

Edit15.Text:=Cbool[CheckListBox1.Checked[0]];

[scroyler]

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

Код:

const
Cbool:array[boolean] of string=('false','true');

Edit15.Text:=Cbool[CheckListBox1.Checked[0]];

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

[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"???
Научитесь поиском пользоваться!

Код:

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

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

Код:

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

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

[scroyler]

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

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

Код:

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

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

Код:

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

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

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

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

[m1sclick]

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

Код:

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.

Код:

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.