Changeset 628 for trunk/ab5.0/ablib/src/basic/command.sbp
- Timestamp:
- Sep 21, 2008, 2:01:36 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/basic/command.sbp
r497 r628 59 59 60 60 Macro MSGBOX(hwnd As HWND, str As String)(title As String, boxType As DWord, ByRef retAns As DWord) 61 'Dim ret = MessageBox(hwnd, ToTCStr(str), ToTCStr(title), boxType)62 'If VarPtr(retAns) Then63 'retAns = ret64 'End If61 Dim ret = MessageBox(hwnd, ToTCStr(str), ToTCStr(title), boxType) 62 If VarPtr(retAns) Then 63 retAns = ret 64 End If 65 65 End Macro 66 66 … … 136 136 Macro CLOSE()(FileNumber As Long) 137 137 FileNumber-- 138 ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 138 139 139 140 If _System_hFile(FileNumber) Then … … 148 149 Sub INPUT_FromFile(FileNumber As Long) 149 150 FileNumber-- 151 ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 150 152 151 153 Dim i = 0 As Long … … 238 240 Dim dwAccessByte As DWord 239 241 FileNumber-- 242 ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 240 243 241 244 WriteFile(_System_hFile(FileNumber), StrPtr(buf), Len(buf), VarPtr(dwAccessByte), ByVal 0) … … 404 407 Macro FIELD(FileNumber As Long, FieldSize As Long) 405 408 FileNumber-- 409 ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 406 410 _System_FieldSize(FileNumber)=FieldSize 407 411 End Macro … … 410 414 411 415 FileNumber-- 416 ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 412 417 RecodeNumber-- 413 418 … … 425 430 426 431 FileNumber-- 432 ActiveBasic.Detail.ThrowIfInvaildFileNum(FileNumber) 427 433 RecodeNumber-- 428 434
Note:
See TracChangeset
for help on using the changeset viewer.