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.