|
Last change
on this file since 255 was 255, checked in by dai, 17 years ago |
|
System.Int32 / System.UInt32（両方共にBlittable型）を試験導入した。
|
|
File size:
579 bytes
|
| Line | |
|---|
| 1 | Namespace System
|
|---|
| 2 | Class Blittable(DWord) UInt32
|
|---|
| 3 | value As DWord
|
|---|
| 4 | Public
|
|---|
| 5 | Static Function MaxValue() As Long
|
|---|
| 6 | Return 2147483647
|
|---|
| 7 | End Function
|
|---|
| 8 | Static Function MinValue() As Long
|
|---|
| 9 | Return -2147483648
|
|---|
| 10 | End Function
|
|---|
| 11 |
|
|---|
| 12 | Sub UInt32( value As DWord )
|
|---|
| 13 | This.value = value
|
|---|
| 14 | End Sub
|
|---|
| 15 |
|
|---|
| 16 | Override Function ToString() As String
|
|---|
| 17 | Return Str$(value)
|
|---|
| 18 | End Function
|
|---|
| 19 |
|
|---|
| 20 | Function Operator() As DWord
|
|---|
| 21 | Return value
|
|---|
| 22 | End Function
|
|---|
| 23 |
|
|---|
| 24 | Static Function _Create( value As DWord ) As UInt32
|
|---|
| 25 | Return New UInt32( value )
|
|---|
| 26 | End Function
|
|---|
| 27 | End Class
|
|---|
| 28 | End Namespace
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
