Registriert seit: 10. Jun 2003
Ort: Berlin
9.351 Beiträge
Delphi 11 Alexandria
|
AW: UnicodeString Swap?
4. Nov 2013, 22:30
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.
Sebastian Jänicke Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
|