tmemorystream.memory

[r29d43]

Wie kommst du darauf, dass TStream.Memory nicht auf die Daten zeigt? Bei mir geht das ganz normal:

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
var AMemStream : TMemoryStream;
    Wert : ^byte;
    AByte : byte;
    I : integer;
begin
  AMemStream := TMemoryStream.Create;
  AMemStream.Size := 256;
  AMemStream.Position := 0;
  for I := 0 to 255 do AMemStream.WriteBuffer(I,SizeOf(Byte));

  Wert := AMemStream.Memory;
  for I := 0 to 255 do begin
    AByte := Wert^;
    Memo2.Lines.Add(IntToStr(AByte));
    inc(Wert);
  end;

  AMemStream.Free;
end;