Aus Stream in einen daynamischen Buffer schreiben?

[VizeTE]

Hallo,

so gehts:

Delphi-Quellcode:

function TMyObj.ReadBytes(SrcStream: TStream): integer;
var
  ABuf : array[0..1] of byte;
begin
  Result := SrcStream.Read(ABuf, 2);
end;

so gehts nicht:

Delphi-Quellcode:

type
  TDynByteArray = array of byte;
...
function TMyObj.ReadBytes(SrcStream: TStream): integer;
var
  ABuf : TDynByteArray
begin
  SetLength(ABuf, 2);
  Result := SrcStream.Read(ABuf, 2);
end;

Mich würde es einfach mal interessieren warum Variante 2 nicht funktioniert. Ich kann mir das nicht erklären.
Das die Methode ansich nicht viel (Sinn) macht ist mir klar, geht ums Prinzip.

[Dax]

Delphi-Quellcode:

type
  TDynByteArray = array of byte;
...
function TMyObj.ReadBytes(SrcStream: TStream): integer;
var
  ABuf : TDynByteArray
begin
  SetLength(ABuf, 2);
  Result := SrcStream.Read(ABuf[0], 2);
end;

Dynamische Arrays sind Pointer, deswegen musst du ein [0] anhängen, um die Speicheradresse des ersten Elements zu bekommen - bei statischen Arrays ist das Array selbst schon der Speicherbereich.

[VizeTE]

mmm...wer hätte gedacht das die Lösung so einfach ist :zwinker:
Danke

[SirThornberry]

man kann sich auch angewöhnen generell das erste element des array zu übergeben. Dann spielt es keine rolle wenn man nachträglich aus einem statichen ein dynamisches Array macht.