修改图例的代码

atiger

var
  lChar: Char;
begin
  lChar := LegendText[Length(LegendText)];
  case lChar of
    '1':
      LegendText := LegendText + '热电';
  end;
end;