Scrive Francois PIETTE <[EMAIL PROTECTED]>: > >class function THttpContentCoding.GetCoding: String; > >const > > BASE_CLASS_NAME = 'THttpContentCoding'; > >begin > > if Pos(BASE_CLASS_NAME, ClassName) = 1 then > > Result := Copy(ClassName, Length(BASE_CLASS_NAME), MAXINT) > > else > > Result := 'Unknown'; { Raise an exception?? } > >end; > > Instead of Result := 'Unknown'; I would code: > > raise Exception.Create('GetCoding must be overriden in ' + ClassName); > > Probably a new exception class should be created, like > HttpContentCodingException to ease exception handling in the application.
Done. Bye, Maurizio. ---------------------------------------------------- This mail has been sent using Alpikom webmail system http://www.alpikom.it -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be