Differenze tra le versioni di "TypeOf"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
La funzione '''TypeOf()''' ritorna un valore intero che rappresenta, conformemente all'enumerazione presente nel file sorgente ''/.../main/share/gb_type_common.h'', il tipo di dato, al quale appartiene una variabile. | La funzione '''TypeOf()''' ritorna un valore intero che rappresenta, conformemente all'enumerazione presente nel file sorgente ''/.../main/share/gb_type_common.h'', il tipo di dato, al quale appartiene una variabile. | ||
| − | |||
La sua sintassi è: | La sua sintassi è: | ||
| − | |||
TypeOf(variabile) As Integer | TypeOf(variabile) As Integer | ||
| − | |||
| Riga 18: | Riga 15: | ||
Print "Il tipo di dato è: "; tipi[TypeOf(i)] | Print "Il tipo di dato è: "; tipi[TypeOf(i)] | ||
| + | '''End''' | ||
| + | oppure andando a verificare il tipo di dato direttamente nella seconda enumerazioni di tipi di dati contenuta nel file "gb_type_common.h" dei sorgenti di Gambas: | ||
| + | '''Public''' Sub Main() | ||
| + | |||
| + | Dim s As String = File.Load(User.Home &/ "gambasdevel/main/share/gb_type_common.h") | ||
| + | Dim c As Short | ||
| + | |||
| + | Dim '''tipo''' As <FONT Color=#B22222><B>Integer</b></font> <FONT Color=gray>' Imposta un tipo di dato</font> | ||
| + | |||
| + | c = InStr(s, "VOID") - 1 | ||
| + | |||
| + | Do | ||
| + | Repeat | ||
| + | Inc c | ||
| + | Until s[c, 1] = "=" | ||
| + | If Val(s[c + 2, 2]) == TypeOf(tipo) Then | ||
| + | c -= 13 | ||
| + | Print s[c, 8] | ||
| + | Break | ||
| + | Endif | ||
| + | Loop | ||
| + | |||
'''End''' | '''End''' | ||
Versione delle 03:47, 10 set 2022
La funzione TypeOf() ritorna un valore intero che rappresenta, conformemente all'enumerazione presente nel file sorgente /.../main/share/gb_type_common.h, il tipo di dato, al quale appartiene una variabile.
La sua sintassi è:
TypeOf(variabile) As Integer
Mostriamo un esempio pratico:
Public Sub Main()
Dim tipi As String[] = ["Void", "Boolean", "Byte", "Short", "Integer", "Long", "Single", "Float", "Date", "String",
Null, "Pointer", "Variant", "Array o Function", "Class o Structure", "Null", "Object"]
Dim i As Integer
Print "Il tipo di dato è: "; tipi[TypeOf(i)]
End
oppure andando a verificare il tipo di dato direttamente nella seconda enumerazioni di tipi di dati contenuta nel file "gb_type_common.h" dei sorgenti di Gambas:
Public Sub Main()
Dim s As String = File.Load(User.Home &/ "gambasdevel/main/share/gb_type_common.h")
Dim c As Short
Dim tipo As Integer ' Imposta un tipo di dato
c = InStr(s, "VOID") - 1
Do
Repeat
Inc c
Until s[c, 1] = "="
If Val(s[c + 2, 2]) == TypeOf(tipo) Then
c -= 13
Print s[c, 8]
Break
Endif
Loop
End
