|
<< Click to Display Table of Contents >> Navigation: Apollo API Listing > sx_GetInteger |
Declare Function sx_GetInteger Lib "Apollo9.dll"
(ByVal cpFieldName As String)
As Integer
SHORT FAR PASCAL sx_GetInteger
(BYTEP cpFieldname);
Extracts the contents of a numeric field as a signed integer value. Integer range is
-32,768 to 32,767.
Note: Many of the sx_Get* functions can be replaced with a single call to sx_GetVariant. The sx_Get* functions that return specific data types are primarily for C programmers who cannot use sx_GetVariant.
cpFieldName: The name of the field.
The contents of the field converted to a signed integer value.
Sub List1_DblClick ()
Dim FldName As String
Dim dVal As Double
FldName = RTrim$((List1.Text))
If Len(FldName) > 0 Then
If sx_FieldType(FldName) = "N" Then
BoxInt.Text = Format$(sx_GetInteger(FldName), "00000")
BoxLong.Text = Format$(sx_GetLong(FldName), "0000000")
dVal = sx_GetDouble(FldName)
BoxDouble.Text = Format$(dVal, "000#.00")
End If
BoxString.Text = sx_GetString(FldName)
If sx_FieldType(FldName) = "D" Then
BoxDate.Text = sx_GetDateString(FldName)
Else
BoxDate.Text = ""
End If
Boxftype.Text = sx_FieldType(FldName)
Boxflen.Text = Format$(sx_FieldWidth(FldName), "000")
Boxfdec.Text = Format$(sx_FieldDecimals(FldName), "00")
If Not sx_Empty(FldName) Then
BoxEmpty.Text = "False"
Else
BoxEmpty.Text = "True"
End If
End If
End Sub
SHORT iValue;
iValue = sx_GetInteger("serial");