Code4bin Delphi -

TBinaryWriterHelper

function TBinaryReaderHelper.ReadInt32: Integer; begin Self.Read(Result, 4); end;

procedure TBinaryWriterHelper.WriteInt32(Value: Integer); begin Self.Write(Value, 4); end;