Changeset 123 for Include/basic/dos_console.sbp

Timestamp:

Mar 1, 2007, 12:31:13 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

(拡張)メタファイル関数（全部）・構造体（一部）、BITMAPV4HEADERとそれに関連する型などの宣言

File:

• Include/basic/dos_console.sbp (modified) (1 diff)

Include/basic/dos_console.sbp

@@ -55 +55 @@
         Wend
 
-        Select Case _System_InputDataType[i]
-            Case _System_Type_Double
-                SetDouble(_System_InputDataPtr[i],Val(buf))
-            Case _System_Type_Single
-                SetSingle(_System_InputDataPtr[i],Val(buf))
-            Case _System_Type_Int64,_System_Type_QWord
-                SetQWord(_System_InputDataPtr[i],Val(buf))
-            Case _System_Type_Long,_System_Type_DWord
-                SetDWord(_System_InputDataPtr[i],Val(buf))
-            Case _System_Type_Integer,_System_Type_Word
-                SetWord(_System_InputDataPtr[i],Val(buf))
-            Case _System_Type_Char,_System_Type_Byte
-                SetByte(_System_InputDataPtr[i],Val(buf))
-            Case _System_Type_String
-                Dim pTempStr As *String
-                pTempStr=_System_InputDataPtr[i] As *String
-                pTempStr->Assign(buf, i3)
-        End Select
+        _System_Input_SetArgument(_System_InputDataPtr[i], _System_InputDataType[i], buf, i3)
 
         i++