Thrift-1435: make TException.Message property conformant to the usual expectations
Client: delphi
Patch: Jens Geyer
Make delphi exceptions act like standard TException within other languages
git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1205415 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/lib/delphi/test/TestServer.pas b/lib/delphi/test/TestServer.pas
index ecaf80d..26d49d2 100644
--- a/lib/delphi/test/TestServer.pas
+++ b/lib/delphi/test/TestServer.pas
@@ -115,6 +115,7 @@
x := TXception.Create;
x.ErrorCode := 1001;
x.Message_ := 'This is an Xception';
+ x.UpdateMessageProperty;
raise x;
end;
end;
@@ -280,6 +281,7 @@
x := TXception.Create;
x.ErrorCode := 1001;
x.Message_ := 'This is an Xception';
+ x.UpdateMessageProperty;
raise x;
end else
if ( arg0 = 'Xception2') then
@@ -288,6 +290,7 @@
x2.ErrorCode := 2002;
x2.Struct_thing := TXtructImpl.Create;
x2.Struct_thing.String_thing := 'This is an Xception2';
+ x2.UpdateMessageProperty;
raise x2;
end;