como criar um Array?

[henriquexande106]

Relembrando a primeira mensagem :

Amigos boa noite,

Estou precisando trabalhar com vetor ou array para preencher umas variáveis.

tenho uma tabela de empresas onde eu verifico quantas empresas que eu tenho (posso ter até 99)

Código:

SELECT COUNT(*) AS LNContEmp FROM EMPRESAS
I = LNContEmpr

Onde depois eu preciso preencher as variáveis (LNEmp1, LNEmp2, LNEmp3, LNEmp4...até , LNEmpI onde I é a quantidade de empresas que eu tenho.

e Sei que vou precisar fazer um FOR para poder preencher as minhas variáveis LNEmp1 atéLNEmpI

Código:

Select nome_empr from EMPRESA
FOR

ENDFOR

Como eu faço? Como que eu tenho que declarar avariável?
Desde Já Agradeço!!!

[lardecristo]

Para você criar um array é desta forma

Código:

DIMENSION LNEmpr[1]

Agora no seu caso ela deve ser redimensionada ou criada após o seu SELECT

Código:

SELECT.....o seu código

DIMENSION LNEmpr[RECCOUNT()]


Feito isso é só usar o comando FOR para o preenchimento da mesma.

Código:

FOR lnX = 1 to RECCOUNT()
      LNEmpr[lnX]
NEXT

Obs.: Um array pode ser redimensionada dinamicamente sem perda dos dados anteriores.

Código:

DIMENSION laTeste[1]
laTeste[1] = "Ops."
MESSAGEBOX(laTeste[1])
DIMENSION laTeste[4]
MESSAGEBOX(laTeste[1])

Outra coisa o código que o Marcos passou, deveria resolver o seu problema, faça um teste que e veja o resultado.

[Marcos Guedes]

Outra alternativa, já que pretendes trabalhar com um array preenchido dinamicamente é utilizar a classe Collection.

[m@r<3|o]

segue um exemplo achei em forums
1 prg somente apertar Run

Clique aqui para baixar o arquivo!

[henriquexande106]

Amigos esta resolvido, segue o código utilizado..

Código:

&& Declarei a variável e inicializei-as com " "

PUBLIC ARRAY Empresa[99] as Character

empresa[1] = " "
empresa[2] = " "
empresa[3] = " "
empresa[4] = " "
empresa[5] = " "
empresa[6] = " "
empresa[7] = " "
empresa[8] = " "
  .
  .
  .

&& Selecionai a tabela de empresas para fazer a contagem de quantas empresas eu tinha cadastrada.


SELECT COUNT(*) AS TotEmpr FROM TABPLAN INTO CURSOR tmpempr
I = TotEmpr


&& Criei um For para alimentar o meu vetor

SELECT TABPLAN
GO TOP
FOR EmpCount = 1 TO I
    lcempr1      = ALLTRIM(STR(empcount))
    Lcempr2      = "Empresa["+lcempr1+"]"
   &lcempr2    = NOME_EMPR  && Aqui utilizei macro substituição
   SKIP
ENDFOR

[lardecristo]

Olá Henrique, você leu os códigos que foram expostos acima?
Para alimentar o array, você não precisa de macro-substituição.

Abraços,