转换宽字符串 LE -> BE 的快速方法

Quick way to convert widestring LE -> BE

我使用 Lazarus 1.2.6,我想转换长宽字符串:从 LE-> BE 或返回。我的代码(我打印为召回)

for i:= 1 to Length(s) do
  s[i]:= Widechar(SwapEndian(Ord(s[i])))

有什么更快的方法吗?

不,目前没有流字节序交换。