![](styles/elise/misc/quote_24x24.png)
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
![Shocked](images/smilies/icon_eek.gif)
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](images/smilies/cat.gif)
...