Byte-Array per PByte übergeben

[MStoll]

Hi,

da aber dynamische Arrays bereits Pointer sind, schlage ich das vor:

Delphi-Quellcode:

function blubb(a:pbyte):integer; 
begin 
  TByteArr(a)[0] := 1; 
end;

Ich benutze es in ähnlicher Weise selbst für das Sortieren beliebiger Array-Typen, wenn ich einfach nur nen Pointer als formalen Parameter in der Vergleichs-Funktion habe. Siehe dazu auch den Beitrag zu Shellsort für beliebige Arrays in der Code-Lib.

Gruß
Michael

[Edit] Du kannst dir type TByteArr = array of Byte auch zwischen dem Funktions-Kopf und begin lokal definieren, wenn das in deinem Fall sinnvoll ist. [/Edit]