ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

[Dúvida] Array Dinâmico

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
brunuxx
Novato
Novato


Registrado: Quarta-Feira, 28 de Dezembro de 2011
Mensagens: 2

MensagemEnviada: Qua Dez 28, 2011 10:46 am    Assunto: [Dúvida] Array Dinâmico Responder com Citação

Olá amigos, estou começando aqui no fórum pois tenho pesquisado muito sobre o problema a seguir e não consigo solução.
Tenho que armazenar os dados igual em um memo na forma de vetor, pois atualmente utilizo o Add.Lines e vou adicionando os valores que são entregues por uma variável em um memo só que isso ocupa muita memória do computador e como são muitos dados recebidos preciso alocá-los em um vetor que inicialmente não tem tamanho definido e que aumenta 1 sempre que der o Loop. Eu cosegui chegar até o seguinte caso.
Código:
 
SetLength(va5,1);
while i <= High(va5) do
begin
i:=Length(va5)+1;
setLength(va5,i);
va5[i-1]:= v5;
end;

Mas sempre o vetor va5 fica com tamanho 1.
Alguém sabe de que forma eu posso fazer isso?
Obrigado.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Qua Dez 28, 2011 11:25 am    Assunto: Responder com Citação

Neste trecho de código que você postou não é possível saber o valor da variável i.
Se o código dentro do looping estiver sendo executado (depende do valor inicial de i), deveria ser adicionada mais uma ocorrência ao array.
Mas pelo que você citou acho que você pode utilizar uma TStringList no lugar do array dinâmico.

Espero que ajude.

__________________
Assinatura: Imoveis em Suzano
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
brunuxx
Novato
Novato


Registrado: Quarta-Feira, 28 de Dezembro de 2011
Mensagens: 2

MensagemEnviada: Qua Dez 28, 2011 11:36 am    Assunto: Responder com Citação

o i:=0; está antes do while que recebe os dados não esqueci não, mas vou pesquisar sobre como usar o TStringList. Mas já valeu pela dica.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Qui Dez 29, 2011 8:56 pm    Assunto: Responder com Citação

eis aih:

http://www.activedelphi.com.br/forum/viewtopic.php?t=66112&highlight=array+++string


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB