String Entscheidungen mit case treffen!!!

[himitsu]

Das Eleganteste hat Kroko1999 schon gesagt ... einfach TLabel(Sender).Tag nutzen

Delphi-Quellcode:

Case TLabel(Sender).Tag of
  0{Übersicht}: Begin
    ...
  End;
  1{Kunden}: Begin
    ...
  End;
  2{Einstellungen}: Begin
    ...
  End;
  3{Impressum}: Begin
    ...
  End;
  ...
End;

Dazu muß natürlich noch den TAG's der Labels der entsprechende Wert zugewiesen werden



Ein Pointer sollte ja auch einen ordinalen Typ darstellen, demnach müßte es doch auch möglich sein diese zu vergleichen?

Delphi-Quellcode:

Case TLabel(Sender) of
  Label1{Übersicht}: Begin
    ...
  End;
  Label2{Kunden}: Begin
    ...
  End;
  ...
End;

Case TLabel(Sender) of
  UebersichtLabel: Begin
    ...
  End;
  KundenLabel: Begin
    ...
  End;
  ...
End;

//halt die definierten Namen der Labels