Thanks, it didn't compile, this this did:
function SSwapEndian(const S: UnicodeString): UnicodeString;
var
i: integer;
p: PWord;
begin
Result:= S;
if S='' then exit;
UniqueString(Result);
P:= PWord(@Result[1]);
for i:= 1 to Length(Result) do
begin
P^:= SwapEndian(P^);
Inc(P);
end;
end;AlexeyT -- _______________________________________________ Lazarus mailing list [email protected] https://lists.lazarus-ide.org/listinfo/lazarus
