在线等.帮看这个代码出错哪地方 菜鸟问

Question

写的一个多选框弹出的 全部变量定义为  taste可是不知道那个地方出错了 高手给点指点
taste:='';
        if checkbox1.Checked then
          if taste='' then
           taste:=checkbox1.Caption
               else
               taste:=taste+'、'-checkbox1.Caption;

Answer 1

  taste:=taste+'、'-checkbox1.Caption;//-是什么意思
  taste:=taste+'、-'+checkbox1.Caption;//这样试一下

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Edit1: TEdit;
    procedure RadioButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
   sex,taste:string  ;
implementation{$R *.dfm}procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if radiobutton1.Checked  then
  sex:='男'
  else if   radiobutton2.Checked then
  sex:='女' ;end;procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(sex) ;
end;procedure TForm1.CheckBox1Click(Sender: TObject);
begin        taste:='';
        if checkbox1.Checked then
          if taste='' then
           taste:=checkbox1.Caption
               else
               taste:=taste+'、'-checkbox1.Caption ;
        if checkbox2.Checked then
          if taste='' then
           taste:=checkbox2.Caption
               else
               taste:=taste+'、'-checkbox2.Caption ;
        if checkbox3.Checked then
          if taste='' then
           taste:=checkbox3.Caption
               else
               taste:=taste+'、'-checkbox3.Caption ;
         if checkbox4.Checked then
          if taste='' then
           taste:=checkbox4.Caption
               else
               taste:=taste+'、'-checkbox4.Caption ;
         if checkbox5.Checked then
          if taste='' then
           taste:=checkbox5.Caption
               else
               taste:=taste+'、'-checkbox5.Caption ;
         if checkbox6.Checked then
          if taste='' then
           taste:=checkbox6.Caption
               else
               taste:=taste+'、'-checkbox6.Caption ;
这是全部代码 不知道为什么.你那个方法编译之后提示致命错误 不知道什么原因哦