MyStrToHex extrem schnell

[PeterPanino]

Und das Ergebnis ist auch ein völlig anderes:

Delphi-Quellcode:

Self.Caption := FurtbichlerStrToHex('Tᾯest ♀♥♂');
// Ergebnis: 001F00000000262626

Self.Caption := MyStrToHex('Tᾯest ♀♥♂');
// Ergebnis: 00541FAF0065007300740020264026652642

Das Ergebnis von MyStrToHexist korrekt. Ich habe es überprüft, indem ich die Umkehrfunktion auf das Ergebnis angewendet habe, um wieder den Ausgangsstring zu erhalten.

[Furtbichler]

Du must bei mir die 'String' durch 'AnsiString' austauschen. Ich verwende noch so ein altes Delphi. Dann kommt da auch das Gleiche raus.

Die Frage ist aber, ob das so gewollt ist (Rückgabewert AnsiString). Wenn nicht, muss man noch umstricken. Was willst Du eigentlich damit erreichen?

[PeterPanino]

Du hast recht. FurtbichlerStrToHex ist etwa doppelt so schnell wie MyStrToHex. Ich habe es getestet, indem ich die Funktion 1 Million mal ausgeführt habe:

1 Million Ausführungen:

FurtbichlerStrToHex: Ca. 75 Millisekunden
MyStrToHex: Ca. 135 Millisekunden

Ist FurtbichlerStrToHex fehleranfälliger als MyStrToHex?

[PeterPanino]

Zitat von Furtbichler:

Was willst Du eigentlich damit erreichen?

Bei einem Verfahren, in das ich nicht eingreifen kann, werden Unicode-Zeichen in Strings so encodiert, dass eine nachherige Decodierung extrem umständlich und fehleranfällig ist. Deshalb encodiere ich die Strings nach Hex, was die nachherige Decodierung einfach und fehlerfrei sicherstellt.

[Zacherl]

Zitat von PeterPanino:

Zitat von Furtbichler:

Was willst Du eigentlich damit erreichen?

Bei einem Verfahren, in das ich nicht eingreifen kann, werden Unicode-Zeichen in Strings so encodiert, dass eine nachherige Decodierung extrem umständlich und fehleranfällig ist. Deshalb encodiere ich die Strings nach Hex, was die nachherige Decodierung einfach und fehlerfrei sicherstellt.

Dann könnte es sogar sein, dass entsprechende Base64 / MIME64 Libs noch einen Tick geeigneter (und schneller) sind.

[PeterPanino]

Zitat von Zacherl:

Dann könnte es sogar sein, dass entsprechende Base64 / MIME64 Libs noch einen Tick geeigneter (und schneller) sind.

Welche etwa?

[PeterPanino]

Das Beste, was ich bis jetzt gefunden habe: DCPbase64 aus DCPcrypt v2.0 (Copyright (c) 1999-2002 David Barton):

Delphi-Quellcode:

for i := 1 to 1000000 do // 1 Million
  DCPbase64.Base64DecodeStr(DCPbase64.Base64EncodeStr('Tᾯest ♀♥♂')); // 0,5 Sekunden

Ist wirklich wesentlich schneller als die bisher besprochenen Encodier-Routinen.

Edit: Mit der neuesten Version: 0,2 Sekunden (1 Million Durchläufe der obigen Anweisung)
Edit2: Diese neuste Version ist offenbar fehlerhaft