diff options
author | Jake Farrell <jfarrell@apache.org> | 2011-10-31 14:07:14 +0000 |
---|---|---|
committer | Jake Farrell <jfarrell@apache.org> | 2011-10-31 14:07:14 +0000 |
commit | 73a921f85c57fd9dda26f91405999455eab8582b (patch) | |
tree | 3ea57bcd815a499a05a2b8609414d31c81e6b884 /lib/delphi/src | |
parent | 1290d42162c1de8a256d3db9c118d308f5cceb84 (diff) | |
download | thrift-73a921f85c57fd9dda26f91405999455eab8582b.tar.gz |
Thrift-1408: Delphi Test Server: Exception test case fails due to naming conflict with e.message
Client: delphi
Patch: jens Geyer
Fix name comflict with e.message
git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1195461 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'lib/delphi/src')
-rw-r--r-- | lib/delphi/src/Thrift.pas | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/delphi/src/Thrift.pas b/lib/delphi/src/Thrift.pas index 6f352b1ab..48c3d4727 100644 --- a/lib/delphi/src/Thrift.pas +++ b/lib/delphi/src/Thrift.pas @@ -54,8 +54,22 @@ type procedure Write( oprot: IProtocol );
end;
+ // base class for IDL-generated exceptions
+ TException = class( SysUtils.Exception)
+ public
+ procedure Message; // hide inherited property to prevent accidental read/write
+ end;
+
implementation
+{ TException }
+
+procedure TException.Message;
+// hide inherited property to prevent accidental read/write
+begin
+ ASSERT( FALSE, 'Unexpected call to '+ClassName+'.message. Forgot the underscore?');
+end;
+
{ TApplicationException }
constructor TApplicationException.Create;
|