一段c语言，哪位大神给翻译成delphi的啊再次谢过了，

Question

 #ifdef MQxx_EXPECT_TRUNCATED_INPUT
 #define CheckSpace(n, size, rcode)                                        
 if ((MQLONG)(in_lastbyte - *in_cursor + 1) < n*size)                     
 {                                                                         
   n = ((MQLONG)(in_lastbyte - *in_cursor + 1) / size);                    
 }                                                                         
 if ((MQLONG) (out_lastbyte - *out_cursor + 1) < n*size)                   
 {                                                                         
   n = ((MQLONG)(out_lastbyte - *out_cursor + 1) / size);                  
   rcode = (opts & MQGMO_ACCEPT_TRUNCATED_MSG)                             
           ? MQRC_TRUNCATED_MSG_ACCEPTED                                   
           : MQRC_CONVERTED_MSG_TOO_BIG;                                   
 }
 #else
 #define CheckSpace(n, size, rcode)                                        
 if ((MQLONG) (in_lastbyte - *in_cursor + 1) < n*size)                     
 {                                                                         
   n = ((MQLONG)(in_lastbyte - *in_cursor + 1) / size);                    
   rcode = (Reason == MQRC_TRUNCATED_MSG_ACCEPTED)                         
           ? MQRC_TRUNCATED_MSG_ACCEPTED                                   
           : MQRC_NOT_CONVERTED;                                           
 }                                                                         
 if ((MQLONG) (out_lastbyte - *out_cursor + 1) < n*size)                   
 {                                                                         
   n = ((MQLONG)(out_lastbyte - *out_cursor + 1) / size);                  
   rcode = (opts & MQGMO_ACCEPT_TRUNCATED_MSG)                             
           ? MQRC_TRUNCATED_MSG_ACCEPTED                                   
           : MQRC_CONVERTED_MSG_TOO_BIG;                                   
 }
 #endif
 QQ：1119878383  以上只是一部分，求大神帮助！

Answer 1

delphi 不支持宏。
如果上下文复杂的宏，要改Delphi,只好手工展开宏。