From 73a921f85c57fd9dda26f91405999455eab8582b Mon Sep 17 00:00:00 2001
From: Jake Farrell <jfarrell@apache.org>
Date: Mon, 31 Oct 2011 14:07:14 +0000
Subject: 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
---
 lib/delphi/src/Thrift.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib/delphi/src/Thrift.pas')

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;
-- 
cgit v1.2.1