Работа с TCheckBox

[MaXXX]

всем хэлоу...

если данный вопрос уже на форуме встречался, не ругайтесь. я чё-то не нашел его, а у меня вопрос такой, имеется на форме к примеру 4 TCheckBox'ка, имена у них к примеру CB_1, CB_2, CB_3, CB_4 и имеется набор символов к каждому TCheckBox'ку, для 1-го "111", для 2-го "222", для 3-го "333" и для 4-го "444" (все данные приведены для примера). так вот, как сделать так, чтобы при выбранных TCheckBox'ах, например CB_1 и CB_3 переменная out_txt приняла значение равное "111333" (out_txt: string), либо при CB_1 и CB_4 переменная out_txt приняла значение равное "111444"...!!????? как это все реализовать по компактнее, хотя всё это можно сделать при вставке условия и проверять TCheckBox'ы на "нажатость", но этот вариант не подходит...

спс за внимание..!!!!

[vasek123]

Мда... Не пойму, чем вас этот вариант не устраивает?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  out_txt: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  one, two, three, four: integer;
begin
  one:=111;
  two:=222;
  three:=333;
  four:=444;
  if CheckBox1.Checked then
    out_txt:=out_txt+IntToStr(one);
  if CheckBox2.Checked then
    out_txt:=out_txt+IntToStr(two);
  if CheckBox3.Checked then
    out_txt:=out_txt+IntToStr(three);
  if CheckBox4.Checked then
    out_txt:=out_txt+IntToStr(four);
  Edit1.Text:=out_txt;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  out_txt:='';
  Edit1.Text:='';
end;

end.

Покомпактнее, можно, конечно, попытаться через case, только ничего, из этой затеи, боюсь не выйдет.

[MaXXX]

спс, всё вышло отлично ...