case

[Killer]

Hi ich hab da mal ne Frage, isses möglich für jede Bedingung in einer Case Abfrage begin-end reinzumachen, weil ich mehrere Sachen ändern will, wenn eine Bedingung eintritt...

[Die Muhkuh]

ja das geht!

Delphi-Quellcode:

case Combobox1.Itemindex of
  0: begin
     //blablabla
     end;
  1: begin
     end;
...

[HAF4ever]

nur vor dem else darf glaub ich dann kein beistrich sein ...
da bin ich mir jetzt nicht sicher ... aber ich glaub schon

Delphi-Quellcode:

case Combobox1.Itemindex of
  0: begin
     //blablabla
     end;
  1: begin
     end
  else begin
    //insert code here ..."
  end

[Christian Seehase]

Moin HAF4ever,

Zitat:

Zitat von HAF4ever

nur vor dem else darf glaub ich dann kein beistrich sein ...

doch, darf. Ist ja kein if / then / else.

[Hansa]

Und nicht vergessen: keine Regel ohne Ausnahme :!: Zu jedem BEGIN gehört ein END. Aber auch zu einem CASE !!

[Robert Marquardt]

Das letzte end gehoert zum begin nach else. Das case braucht noch ein eigenes end.
Mit dem case kann man einen der gemeinsten Fehler in Pascal schreiben.
Ein ";" vor dem else ohne das der Compiler meckert. Ist mir mal passiert.

[Nimoee]

Hallo
wieso ist das ein Fehler? Ist nur ein leeres Statement und das ist zugelassen.
Nimoee

[choose]

Ich glaube Robert meint diesen Effekt:

Delphi-Quellcode:

case foo of
  23: //..
  42: if Bar then SomeAction;
      else AnotherAction
end;

versus

Delphi-Quellcode:

case foo of
  23: //..
  42: if Bar then SomeAction //<--
      else AnotherAction
end;

Der wohl einzige Grund, weshalb überhaupt ein ";" vor dem "else" ungültig ist...?

[sakura]

Zitat:

Zitat von Robert Marquardt

Das letzte end gehoert zum begin nach else. Das case braucht noch ein eigenes end.

Begin nach dem else in einem case :shock: Habe ich noch nie gemacht...

Folgender Code ist einfach mal aus unserem neuen POP3-Server kopiert...

Delphi-Quellcode:

      case AuthType of
        atClear: begin
          Result := Password = Reg.ReadString('Password');
        end;
        atMD5: begin
          Result := CreateMD5(Reg.ReadString('Password')) =
              AnsiLowerCase(Password);
        end;
      else
        raise Exception.Create(UNKNOWN_PWD_VERIFICATION)
      end;

...:cat:...

[Robert Marquardt]

Choose, es geht auch mit try except else end;