Differenze tra le versioni di "Convertire un vettore di tipo Byte in un Puntatore"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Per convertire un vettore di tipo Byte[] in un Puntatore, si utilizzerà | + | Per convertire un vettore di tipo Byte[] in un Puntatore, si utilizzerà la Proprietà ".Data" del vettore medesimo. |
| − | |||
Esempio: | Esempio: | ||
| Riga 10: | Riga 9: | ||
Dim st As Stream | Dim st As Stream | ||
| + | For b = 0 To 99 | ||
| + | bb[b] = b + 1 | ||
| + | Next | ||
| − | + | p = <FONT Color=#B22222>bb.Data</font> | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | <FONT Color=gray>' ''Come verifica del risultato, riotteniamo - | + | <FONT Color=gray>' ''Come verifica del risultato, riotteniamo - dereferenziando il Puntatore - i valori immessi nel vettore:''</font> |
| − | + | st = Memory p For Read | |
| − | + | For n = 0 To 99 | |
| − | + | Read #st, b | |
| − | + | Print b | |
| − | + | Next | |
| − | + | st.Close | |
'''End''' | '''End''' | ||
Versione delle 19:48, 3 nov 2021
Per convertire un vettore di tipo Byte[] in un Puntatore, si utilizzerà la Proprietà ".Data" del vettore medesimo.
Esempio:
Public Sub Main() Dim b, n As Byte Dim bb As New Byte[100] Dim p As Pointer Dim st As Stream For b = 0 To 99 bb[b] = b + 1 Next p = bb.Data ' Come verifica del risultato, riotteniamo - dereferenziando il Puntatore - i valori immessi nel vettore: st = Memory p For Read For n = 0 To 99 Read #st, b Print b Next st.Close End
