Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: UnicodeString Swap?

    Delphi
    by jaenicke, 4. Nov 2013
  Nebenbei würde auch das funktionieren: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.
• Forum: Object-Pascal / Delphi-Language

  AW: UnicodeString Swap?

    Delphi
    by jaenicke, 4. Nov 2013
  Mein Vorschlag:procedure SwapString(var S1, S2: string);
  {$if defined(CPUX86)}
  asm
  push
  mov ecx,
  mov , ecx
  pop ecx
  mov , ecx
  end;
  {$elseif defined(CPUX64)}