From 0f8acc5697d2ad251fccf469cad5141887626b2d Mon Sep 17 00:00:00 2001
From: Jens Geyer <jensg@apache.org>
Date: Wed, 24 Apr 2013 21:53:39 +0200
Subject: [PATCH] THRIFT-1924: Delphi: Inconsistency in serialization of
 optional fields

Patch: Jens Geyer
---
 compiler/cpp/src/generate/t_delphi_generator.cc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/cpp/src/generate/t_delphi_generator.cc b/compiler/cpp/src/generate/t_delphi_generator.cc
index 60b98dfe..0fc9c069 100644
--- a/compiler/cpp/src/generate/t_delphi_generator.cc
+++ b/compiler/cpp/src/generate/t_delphi_generator.cc
@@ -960,6 +960,9 @@ void t_delphi_generator::generate_delphi_struct_impl( ostream& out, string cls_p
     }
     if ((*m_iter)->get_value() != NULL) {
       initialize_field( vars, code, "F" + prop_name( (*m_iter)->get_name(), is_exception), t, (*m_iter)->get_value());
+      if ((*m_iter)->get_req() != t_field::T_REQUIRED) {
+        indent_impl(code) << "F__isset_" << prop_name((*m_iter), is_exception) << " := True;" << endl;
+      }
     }
   }
   indent_down_impl();
-- 
2.17.1