Nebenbei würde auch das funktionieren:
Delphi-Quellcode:
var
Temp: Pointer;
begin
Temp := Pointer(S1);
Pointer(S1) := Pointer(S2);
Pointer(S2) := Temp;
end;
Das sind aber immer noch einige Assemblerbefehle mehr. Es ist aber dennoch um einiges schneller als die Variante mit Strings.