AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

UnicodeString Swap?

Ein Thema von logout · begonnen am 4. Nov 2013 · letzter Beitrag vom 4. Nov 2013
Antwort Antwort
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
10.052 Beiträge
 
Delphi 12 Athens
 
#1

AW: UnicodeString Swap?

  Alt 4. Nov 2013, 21:46
Mein Vorschlag:
Delphi-Quellcode:
procedure SwapString(var S1, S2: string);
{$if defined(CPUX86)}
asm
  push [edx]
  mov ecx, [eax]
  mov [edx], ecx
  pop ecx
  mov [eax], ecx
end;
{$elseif defined(CPUX64)}
asm
  push [rdx]
  mov r9, [rcx]
  mov [edx], r9
  pop r9
  mov [rcx], r9
end;
{$else}
var
  Temp: string;
begin // ergibt mehr als 200 Assemblerbefehle
  Temp := S1;
  S1 := S2;
  S2 := Temp;
end;
{$endif}
Bei ARM kann ich das jetzt nicht direkt aus dem Hut ziehen, deshalb dafür rein Pascal. Durch die Compiler Magic, die hinter den String Zuweisungen abläuft, ist der Aufwand da aber um ein Vielfaches höher als bei dem reinen Pointertausch.
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
logout

Registriert seit: 19. Nov 2008
3 Beiträge
 
#2

AW: UnicodeString Swap?

  Alt 4. Nov 2013, 22:07
Ah, dankeschön. Ich probiere das mal aus und vergleiche alle drei Varianten.

Ich muss unbedingt Assembler lernen
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
10.052 Beiträge
 
Delphi 12 Athens
 
#3

AW: UnicodeString Swap?

  Alt 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
AppCentral
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.531 Beiträge
 
Delphi 12 Athens
 
#4

AW: UnicodeString Swap?

  Alt 4. Nov 2013, 22:45
Wobei ich dennoch denke, daß der Flaschenhals nicht unbedingt beim Vertauschen liegt.
Du machst doch bestimmt noch andere Dinge, wie z.B. das Vergleichen von den Strings?


PS: meine Variante ist dafür sogar threadsave und fehlerunanfällig.
(man weiß ja nicht wie sich der Strings weiterentwickelt, vorallem in Hinblick auf die mobilen Plattformen)
(wobei die sich auch noch etwas optimieren läßt, indem man den unnötigen Codeanteil wegläßt und den Rest wia ASM nachbait)
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu ( 4. Nov 2013 um 22:47 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz