出现提示：Constant expression expected 是什么原因

Question

源码如下：
const 
  sg_r_DYTJTS=0;
  sg_r_DYTJT1=1;
var
  ls: tstringlist;begin
  ls[sg_r_DYTJTS]:='0';  //此处没有错
  ls[sg_r_DYTJT1]:='';   //此处没有错 ,错误提示是： Constant expression expected
end;请问是何原因。

Answer 1

怎么搞的? 像下面这样,没错呀procedure TForm1.Button1Click(Sender: TObject);
const
  sg_r_DYTJTS=0;
  sg_r_DYTJT1=1;
var
  ls: tstringlist;
begin
  ls:=tstringlist.Create;
  ls.Add('A');
  ls.Add('B');
  ls.Add('C');    //添加3项
  ls[sg_r_DYTJTS]:='0'; //A->0
  ls[sg_r_DYTJT1]:='';  //C->''
  showmessage(ls[sg_r_DYTJTS]); //即showmessage(ls[0]);  0
  showmessage(ls[sg_r_DYTJT1]); //即showmessage(ls[1]);  ''
  showmessage(ls[2]);           //C
  ls.Free;
end;

Answer 2

ls[sg_r_DYTJT1]:='';  //C->''失误:是B->''