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 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 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 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;

......

[Robert Marquardt]

Choose, es geht auch mit try except else end;