Hi,
Swap kannte ich noch nicht, hab gleich mal nachgesehen.
Aus der Delphi-Hilfe:
X ist ein Ausdruck des Typs SmallInt oder Word (16 Bit).
Ich hab aber WideChar. Notfalls gehts mit Typecasten.
Aus der Delphi-Hilfe:
Die Funktion ist nur aus Gründen der Abwärtskompatibilität vorhanden.
Na Toll. Dann so:
Delphi-Quellcode:
procedure SwapBytes(
var X: WideChar);
inline;
//Hinweis siehe unter der Prozedur!
begin
X := WideChar(Swap(Word(X)));
end;
{
Sollte CodeGear "swap" eines Tages endgültig abschaffen, bitte das hier nutzen:
procedure SwapBytes(var X: WideChar);
asm
mov dx, [X] //mov dx, [eax]
xchg dl, dh
mov [X], dx //mov [eax], dx
end;
}
Wenigstens wird der Aufruf jetzt so übersetzt (Result ist WideString):
Code:
[b]FAUnicode.pas.137: SwapBytes(Result[I]);[/b]
0045949D 8B06 mov eax,[esi]
0045949F 8D4458FE lea eax,[eax+ebx*2-$02]
004594A3 0FB708 movzx ecx,[eax]
004594A6 86E9 xchg cl,ch
004594A8 668908 mov [eax],cx
004594AB 43 inc ebx
Schade, dass Inline und Inline-Assembler (
) sich nicht vertragen.
@roter Kasten: Es steht zwar als Integer in der
OH, aber es steht auch darunter, was ich oben geschrieben habe: Smallint oder Word, also 16 Bit.
Das & braucht man bloß, wenns nicht eindeutig ist. Es gibt aber kein Register X, also wird der Parameter genommen. Wenn ich ihn ch für Char genannt hätte, müsste ich &Ch schreiben.
Für mehrere Zeichen müsste ich mich noch genauer mit dem Aufbau von Strings und der Übergabe von String-Parametern beschäftigen, dann kann ich auch gleich den ganzen String umwandeln (und dyn. Arrays, denn USC4String ist ein type array of USC4Char). Da es jedoch nur geschrieben wurde, weil ich es schnell brauchte und ich eigentlich was ganz anderes tun wollte, werd ich mich im Moment nicht groß in was einlesen, was ich noch nicht kann und mit dem ursprünglichen Thema nichts zu tun hat. Hab aber schon die TODO-Kommentare gesetzt.
Evtl. hat ja hier jemand Langeweile.
Mit "wie es Delphi übersetzt" meine ich was der aus dem X macht. Erst hatte ich eax stehen aber das ging logischerweise nicht, da X als eax "übersetzt" wurde (der Parameter wurde also in eax übergeben). Aber das CPU-Fenster hat mir die Ursache gezeigt und ich bin auf (e)dx umgestiegen.
Das mit den Funktionen ist schon klar, dass die dann kürzer gehen (da ich dann keine Referenzen übergeben habe), aber das ist mehr Schreibarbeit. Wird es denn optimaler, wenn ich x := SwapBytes(x) schreibe? Kann sogar sein, wenn der Wert vorm Aufruf "zufällig" in (a)ax lag und später wieder dort gebraucht wird. Nur die Variante mit der obsolete-Funktion Swap ist so schon schnell genug, aber das als inline-Funktion zu schreiben macht auch keinen Unterschied.
Mfg
FAlter