String Entscheidungen mit case treffen!!!

[Christian18]

Hallo,

warum kann ich nicht auch einen String Entscheiden lassen??? Mit if funktioniert es doch auch!

ich soll diesen Entscheidungsbau, der eigentlich gar keiner ist, mit case machen. Kein Entscheidungsbau, weil die If Anweidungen nicht ineinander verzweigt sind. Wie kann ich das mit case machen???

Delphi-Quellcode:

procedure TMain.FormShow(Sender: TObject);
begin
  if TLabel(Sender).Caption = 'Übersicht' then
    begin
      ...
    end;

  if TLabel(Sender).Caption = 'Kunden' then
    begin
      ...
    end;

  if TLabel(Sender).Caption = 'Einstellungen' then
    begin
      ...
    end;

  if TLabel(Sender).Caption = 'Impressum' then
    begin
      ...
    end;

  ...

end;

Mein vorschlag wäre dieser gewesen, der funktioniert aber leider nicht!!!

Delphi-Quellcode:

procedure TMain.FormShow(Sender: TObject);
begin

  case TLabel(Sender).Caption of
    'Übersicht' : begin
                    ...
                  end;

    'Kunden' : begin
                 ...
               end;

    'Übersicht' : begin
                    ...
                  end;

    'Einstellungen' : begin
                        ...
                      end;

    'Impressum' : begin
                    ...
                  end;
  end;