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

Question

function RevertString(const AText:widestring):widestring;vari:integer;P:PWideChar;beginSetLength(Result,length(AText));P:=PWideChar(Result);for i:=Length(Atext) downto 1 dobeginP^:=AText[i];inc(P);end;end;

Answer 1

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