>class function THttpContentCoding.GetCoding: String;
>  BASE_CLASS_NAME = 'THttpContentCoding';
>  if Pos(BASE_CLASS_NAME, ClassName) = 1 then
>    Result := Copy(ClassName, Length(BASE_CLASS_NAME), MAXINT)
>  else
>    Result := 'Unknown';  { Raise an exception?? }

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.


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

Reply via email to