简单问题：“＆”这个字符如何表示？

Question

直接用“＆”或＃38都给表示成菜单快捷方式的下划线了，怎么表示才能显示出来呢？

Answer 1

请问这里边的&是啥意识?我的程序执行不了,
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,m:integer;
  year,month,day:word;
  y,v,s,id:string;
begin
  m:=0;
  decodedate(now,year,month,day);
  v:='fd'; ————————定义的变量类型，自己选
  y:=copy(inttostr(year),3,2);————代表年份的
  form1.Table1.Open;
  form1.Table1.First;
  i:=form1.Table1.RecordCount;
  if i>0 then  //&这边执行不了?
  begin
    for j:=0 to i-1 do
    begin
      s:=form1.Table1.FieldValues['id'];
      if copy(s,1,4)=y+v then
        m:=m+1;
    end;
    if m=0 then
     id:=y+v+'01'————最终的id
    else
    begin
      m:=m+1;
      if m<10 then
        id:=y+v+'0'+inttostr(m)
      else
        id:=y+v+inttostr(m);
    end;
  end
  else
    id:=y+v+'01';