Progress 4gl 如何在OpenEdge progress 4gl中检查字符串是否为回文

如何在OpenEdge progress 4gl中检查给定字符串是否为回文？progress 4gl是否内置任何反向字符串函数

FUNCTION reverseString RETURNS CHARACTER (
   INPUT i_c AS CHARACTER
):



   DEFINE VARIABLE cresult AS CHARACTER   NO-UNDO.
   DEFINE VARIABLE ii      AS INTEGER     NO-UNDO.

   DO ii = LENGTH( i_c ) TO 1 BY -1:
      cresult = cresult + SUBSTRING( i_c, ii, 1 ).
   END.
   RETURN cresult.

END FUNCTION.

display reverseString( "asdf" ).

---

完整的OpenEdge文档集可在此处找到：

如您所见，没有内置的反向字符串函数

您需要的是上面演示的函数

要使用该函数确定字符串是否为回文，请执行以下操作：

myString = "asdf".
if myString = reverseString( myString ) then
  message "yes," myString "is a palindrome".
 else
  message "no," myString "is not a palindrome".