|
|
Postada em 11/01/2005 17:38 hs
Olá, galera Existe como Eliminar o Ultimo Elemento de um Array Dinamico??? Vou explicar: quando criamos uma array dinamico, ele nao tem elemento algum. Depois de criado, nos redefinimos ele com a instrução REDIM para que ele tenha um ou mais elementos. Com a instrução REDIM tambem é possivel excluir os elementos, até o penultimo. Mas sempre vai sobrar um, de index 0. Para excluir todos os elementos do array, uso o seguinte: Redim aLista(0) Isso seta o limite superior para 0. Mas ainda sobra o elemento 0. Se eu fizer Redim aLista(-1) vai dar erro... Então como eu faço para excluir o Último Elemento da Array??? Agradeço a ajuda...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Martini
|
PAROBÉ
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/01/2005 08:26 hs
Private Sub Command1_Click()
Dim Vetor()
ReDim Vetor(1 To 10)
For i = 1 To UBound(Vetor)
Vetor(i) = i * i
Next
ReDim Vetor(0)
MsgBox "Ok"
End Sub
|
|
|
|
|
|
Postada em 12/01/2005 08:57 hs
Private Sub Command1_Click()
Dim Vetor()
ReDim PRESERVE Vetor(1 To 10)
For i = 1 To UBound(Vetor)
Vetor(i) = i * i
Next
ReDim PRESERVE Vetor(0)
MsgBox "Ok"
End Sub |
|
|
|
|
|
Postada em 12/01/2005 09:49 hs
Já que os dois postaram o mesmo codigo, vou complicar um pouco... Não posso usar o indice base = 1. Preciso que inicie no 0!!! E ai, como faço???
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 12/01/2005 13:31 hs
Private Sub Command1_Click()
Dim Vetor()
ReDim Vetor(0 To 10)
For i = 0 To UBound(Vetor)
Vetor(i) = "Teste" & i
Next
'redimensiona sem preservar os valores
'o vetor passar a ter um elemente com índice 0 e em branco
ReDim Vetor(0)
'redimensiona preservando os valores
'o vetor passar a ter 16 elemente
ReDim Preserve Vetor(0 To 15)
'libera da memória o vetor
Erase Vetor()
MsgBox "Ok"
End Sub
'MSDN
'Erase Statement Example
'This example uses the Erase statement to reinitialize the elements of fixed-size arrays and deallocate dynamic-array storage space.
'
'' Declare array variables.
'Dim NumArray(10) As Integer ' Integer array.
'Dim StrVarArray(10) As String ' Variable-string array.
'Dim StrFixArray(10) As String * 10 ' Fixed-string array.
'Dim VarArray(10) As Variant ' Variant array.
'Dim DynamicArray() As Integer ' Dynamic array.
'ReDim DynamicArray(10) ' Allocate storage space.
'Erase NumArray ' Each element set to 0.
'Erase StrVarArray ' Each element set to zero-length
' ' string ("").
'Erase StrFixArray ' Each element set to 0.
'Erase VarArray ' Each element set to Empty.
'Erase DynamicArray ' Free memory used by array. |
|
|
|
|
|
Postada em 12/01/2005 14:11 hs
valeu, Martini Esse Erase é exatamente o que eu precisava... Abraços a todos os que me ajudaram... valeu, galera...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
