Сценарий использования delphi для заголовка AdvBadgeGlowButton1

Question

Как вы можете использовать регистрацию в зависимости от подписи к значку? Пытался:

procedure TForm2.Button1Click(Sender: TObject);
begin
case AdvBadgeGlowButton1.Caption of
'Test' :     showmessage('Test')
end;
''     :     showmessage('Empty')
end;

но получаю:

[Ошибка dcc32] Unit2.pas(29): E2001 Требуется порядковый тип [Ошибка dcc32]

Unit2.pas (30): E2010 Несовместимые типы: 'Integer' и 'string'

Answer 1

case не может использоваться для значений, которые не являются порядковыми типами (обычно целочисленные значения), как говорится в сообщении об ошибке. Вам нужно будет использовать if..else вместо.

procedure TForm2.Button1Click(Sender: TObject);
begin
  if AdvBadgeGlowButton1.Caption = 'Test' then
    ShowMessage('Test')
  else if AdvBadgeGlowButton1.Caption = '' then
    ShowMessage('Empty')
  else
    ShowMessage('Got unknown caption ' + AdvBadgeGlowButton1.Caption);
end;