case

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

......