Schalte um deine Funktion die Index-/Bereichsprüfung ab (falls jemand das in den Projekoptionen angeschaltet hat), bzw. mach es am Anfang der
Unit.
Außerhalb des Bereichts kommt es sonst zu eine
Exception, durch den eingefügten Prüfcode.
Delphi-Quellcode:
{$RANGECHECKS OFF} ... {$RANGECHECKS DEFAULT}
// oder
{$R-}
Ich hab noch nicht aussprobiert, was genau das "neue" DEFAULT ist,
die Vorgabe des Compilers oder das zu Beginn der
Unit bzw. des Projekts (also die Compiler-/Projektoptionen)
und so sieht es grauehhaft aus:
Delphi-Quellcode:
{$IFOPT R+}
{$DEFINE _R_}
{$ELSE}
{$UNDEF _R_}
{$ENDIF}
{$R-}
...
{$IFDEF _R_}
{$R+}
{$ENDIF}
Manchmal wünschte ich mir es gäbe eine PUSH/POP Möglichkeit.
Da in der Cryptography oft eh mit Überläufen gerechnet wird, ist es für solche Compleroptionen eh besser, wenn du hier in "deinen" Units eine definierte Vorgabe machst, unabhängig von den Projektoptionen.
Ich hatte früher für sowas ein
array[0..0] of Byte
verwendet, was rein technisch auf die selbe "Lösung" kommt.
Hatte auch mal gehört, dass bei 0..0 die immer Prüfung deaktiviert sei, was cool gewesen wäre, aber dem ist leider nicht so.
In C++ gäbe es statische Arrays mit Länge 0, aber aber ist in Pascal syntaktisch garnicht möglich.
Dein TByteArray ist ein
statisches Array und TBytes (aka TArray<Byte>) ist ein
dynamisches Array.
TBytes zu TByteArray geht,
aber andersrum natürlich nicht, da dort die Verwaltungsdaten des dynamischen Arrays fehlen.
Daher lässt sich dein TByteArray auch zum Cast auf einen "beliebigen" Speicher benutzen.
Aber man könnte oft auch PByte verwenden (so lange keiner die Pointer-Arithmetik abschaltet).
Delphi-Quellcode:
for i := 0 to Size - 1 do
PByte(Buffer)[i] := DoProcess;
// bzw.
for i := 0 to Size - 1 do
(PByte(Buffer) + i)^ := DoProcess;
Zum Glück ist TBytes endlich
TArray<Byte>
und nicht mehr
array of Byte
.
Es gibt auch noch TIdBytes, welches leider immernoch
array of Byte
ist, mit dem Nachteil, dass es mit keinem anderen ByteArray-Typen zuweisungskompatibel ist.
Und nicht zuvewechseln mit
TByteArray = array of Byte;
aus Androidapi.Jni .