Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   TByteArray vs. TBytes (https://www.delphipraxis.net/206349-tbytearray-vs-tbytes.html)

TurboMagic 12. Dez 2020 15:40

TByteArray vs. TBytes
 
Nächste Frage.

Wieder im Code von DECRandom.pas habe ich diese Verwendung von TByteArray gefunden:

Delphi-Quellcode:
procedure DoBuffer(var Buffer; Size: Integer);
var
  i: Integer;
begin
  for i := 0 to Size - 1 do
    TByteArray(Buffer)[i] := DoProcess;
end;
Lt. Hilfe ist das ja ein 32768 Byte großes Array.
Nur was passiert im Fall oben, wenn die Variable Buffer größer als diese Größe
ist und Size auch einen größeren Wert als 32768 hat?
Produziert das einen Fehler?
Falls es keinen Fehler produziert: Wäre es säuberer das auf TBytes umzustellen?

Also so: TBytes(Buffer)[i] := DoProcess;

himitsu 14. Dez 2020 17:09

AW: TByteArray vs. TBytes
 
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. :cry:

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
Delphi-Quellcode:
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. :cry:
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
Delphi-Quellcode:
TArray<Byte>
und nicht mehr
Delphi-Quellcode:
array of Byte
.
Es gibt auch noch TIdBytes, welches leider immernoch
Delphi-Quellcode:
array of Byte
ist, mit dem Nachteil, dass es mit keinem anderen ByteArray-Typen zuweisungskompatibel ist. :wall:

Und nicht zuvewechseln mit
Delphi-Quellcode:
TByteArray = array of Byte;
aus Androidapi.Jni .

TurboMagic 14. Dez 2020 21:18

AW: TByteArray vs. TBytes
 
Guter Tipp mit der Bereichsprüfung.
Ansonsten: ein 0 Byte großes Array wäre sinnfrei...

Rollo62 15. Dez 2020 13:17

AW: TByteArray vs. TBytes
 
Zitat:

Zitat von TurboMagic (Beitrag 1479101)
Guter Tipp mit der Bereichsprüfung.
Ansonsten: ein 0 Byte großes Array wäre sinnfrei...

Wieso ? Ist doch eine "leere Menge" :stupid:


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:18 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz