Einzelnen Beitrag anzeigen

MStoll

Registriert seit: 15. Nov 2005
131 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Byte-Array per PByte übergeben

  Alt 25. Dez 2009, 20:24
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]
"Man soll nie mehr essen als mit Gewalt reingeht!" (n.n.)
  Mit Zitat antworten Zitat