Hi Julius,
Delphi-Quellcode:
function SwapBytes(X: WideChar): WideChar;
asm
xchg al, ah
end;
function SwapString(X: WideString): WideString;
var
idx: integer;
begin
for idx := 0
to Length(X) - 1
do
X[idx+1] := SwapBytes(X[idx+1]);
Result := X;
end;
Das funktioniert. Und soweit ich das sehe, gibt es dafür auch keinen eleganteren Weg. Schade.
Danke für deine Hilfe.
Christopher