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