Bitmap speichern mit File of MyRecord

[Jackie1983]

Zitat von turboPASCAL:

Delphi-Quellcode:

procedure ...
var
  nd: rNetDevice;
  Temp: TMemoryStream;
  i: integer;
  B: Byte;
begin
  nd.Typ := 1;
  nd.PositionX := 2;
  nd.PositionY := 3;

  Temp := TMemoryStream.Create;
  Image1.Picture.Bitmap.SaveToStream(Temp);

  nd.BitmapLength := Temp.Size;
  SetLength(nd.Bitmap, nd.BitmapLength + 1);

  Temp.Position := 0;
  for i := 0 to nd.BitmapLength -1  do
  begin
    Temp.Read(B, 1);
    nd.Bitmap[i] := B;
  end;

  Temp.Free;
end;

was ist nd.Bitmap für ein Typ?