如题
多谢

解决方案 »

  1.   

    自己写。
    function Inverted(Str: String): Stirng
    var
      ReStr: String;
      i: Integer;
    begin
      for i := Length(Str) downto 1 do
        ReStr := ReStr + Copy(Str, i, 1);
      Result:= ReStr;
    end;
      

  2.   

    Delphi syntax:function ReverseString(const AText: string): string;
      

  3.   

    用时要记的
    Uses
      strUtils
    这个单元
      

  4.   

    UnitStrUtilsfunction ReverseString(const AText: string): string;DescriptionReverseString returns the string specified by AText with the characters in reverse order.Note: This method does not work with multibyte character sets.