Byte-Array per PByte übergeben

[MisterNiceGuy]

Hi, ich möchte einer Funktion einen Bytearray per PByte übergeben und dann als Array behandeln.
Hier meine Funktion:

Delphi-Quellcode:

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

Jetzt bekomm ich aber einen Fehler in der Zeile, der besagt, dass ein Arraytyp erwartet wird.
Kann mir jemand helfen?

[mleyen]

Delphi-Quellcode:

type
  PByte = ^Byte; // dies ist so definiert

// Was du suchst sollte so aussehen:
  ByteArr = array of Byte;
  PByteArr = ^ByteArr;

Ansonsten, falls du echt PByte bekommst, caste einfach nach PByteArr, ala PByteArr(a). :thumb:

[MisterNiceGuy]

Hi Marcel, danke aber das bringt mich nicht wirklich weiter! Was ich brauche ist eine Lösung wie die eine Zeile die ich modifiziert habe
korrigiert werden kann sodass sie funktioniert. Ich kann leider nicht den Parameter oben ändern.

[mleyen]

Siehe mein Edit.

Delphi-Quellcode:

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

[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]

[MisterNiceGuy]

Ah das hilft, vielen Dank euch beiden :)