麻烦问问这段函数什么意思啊？一直搞不懂！

Question

function RevertString(const AText:widestring):widestring;
var
i:integer;
P:PWideChar;
begin
SetLength(Result,length(AText));
P:=PWideChar(Result);
for i:=Length(Atext) downto 1 do
begin
P^:=AText[i];
inc(P);
end;
end;

Answer 1

//把一个输入字符串翻转function RevertString(const AText:widestring):widestring;vari:integer;P:PWideChar; //宽字符，通常就是UNICODE编码beginSetLength(Result,length(AText)); //长度对齐P:=PWideChar(Result); //取首地址for i:=Length(Atext) downto 1 dobeginP^:=AText[i];//当前指针所指的字符赋值，“倒序”inc(P); //指针前移end;end;