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
diff --git a/lib/delphi/test/TestServer.pas b/lib/delphi/test/TestServer.pas
index c120712..67cce77 100644
--- a/lib/delphi/test/TestServer.pas
+++ b/lib/delphi/test/TestServer.pas
@@ -276,7 +276,7 @@
begin
x := TXception.Create;
x.ErrorCode := 1001;
- x.Message := 'This is an Xception';
+ x.Message_ := 'This is an Xception';
raise x;
end else
if ( arg0 = 'Xception2') then