pack-Funktion optimieren

[Aphton]

Ne Frage, warum wird #10 ignoriert? (Sag nicht, wegen dem Zeilenumbruch)
Falls du nämlich mit der Basis 256 (und nicht 255) arbeiten könntest, wäre das um einiges einfacher:

Delphi-Quellcode:

function cvbase(n:int64): string;
begin
  SetLength(Result, 8);
  Move(n, Result[1], 8);
end;

[himitsu]

string AnsiString

[luke2]

Danke jbg, das sieht schon sehr gut aus, allerdings erhalte ich in der Zeile
div ecx // und dividieren (EDX enthält Rest, der als Übertrag genutzt wird) immer den Fehler Division durch Null, egal mit welchen Werten ich cvbase aufrufe.

Zitat von Aphton:

Ne Frage, warum wird #10 ignoriert? (Sag nicht, wegen dem Zeilenumbruch)

Die Strings werden später in eine Datei gespeichert und deshalb wird ein (beliebiges) Zeichen benötigt um einen string von dem anderen zu unterscheiden.

[jbg]

Der Fehler sollte jetzt ausgebessert sein. Ich hatte noch ein wenig mit der Reihenfolge der Parameter gespielt und dabei die 32bit Assemblerversion nicht richtig angepasst.

[luke2]

Dann sage ich mal vielen Dank, es ist ungefähr 4x schneller als meine Version!

[Aphton]

Zitat von luke2:

Zitat von Aphton:

Ne Frage, warum wird #10 ignoriert? (Sag nicht, wegen dem Zeilenumbruch)

Die Strings werden später in eine Datei gespeichert und deshalb wird ein (beliebiges) Zeichen benötigt um einen string von dem anderen zu unterscheiden.

Machs doch anders:

Code:

<Länge des Blcoks><Block> <Länge des Blcoks><Block> <Länge des Blcoks><Block>