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;