请哪位帮助我写一个函数？

Question

要求实现下面功能：
　　　传入一字符串变量，返回上一字符串。如‘Z'的上一个字符是'Y’,‘B'的上一个字符是'A’,并且‘A'的上一个字符是'Z’。具体例子如：‘AAB'的上一字符串是'AAA','BCD'的上一字符串是'BCC'。

Answer 1

function GetPrevStr(OldStr :string):String;
var
  i,j:Integer;
begin
  j:= GetLength(OldStr);
  i:= Ord(Copy(OldStr,j-1,j));
  Result := Copy(OldStr,1,j-1)+CHR(i-1);
  
end;

Answer 2

function GetPrevStr(OldStr :string):String;
var
  i,j:Integer;
begin
  j:= Length(OldStr);
  i:= Ord(OldStr[j]);
  if OldStr[j] in ['A','a'] then
    Result := Copy(OldStr,1,j-1)+CHR(i+25)
  else
    Result := Copy(OldStr,1,j-1)+CHR(i-1);
end;