LISTBOX (adicionar nome )

[dapazneri]

Bom dia a todos,
Sou inciante no xHarbour , gostaria de ajuda no fonte abaixo

Código: Selecionar todos

PRIVATE oGetContato , oListContato  // declaracao de objeto
PRIVATE cGetContato , cListContato // declaracao de variaveis
aItems:={}

REDEFINE GET oGetContato Var cGetContato ID 4001
REDEFINE LISTBOX oListContato Var cListContato ID 4002 ITEMS aItems VALID List_nome(cGetContato) 

Static Function List_Nome(cGetContato)

AADD(oListContato:aItems , cGetContato)
oListContato: refresh()
Return (.T.)

Obs: o problema eh , quando digito no get do Edit (Pelles) , ele armazena na array mas nao adiciona no oListContato (LISTBOX), ou seja , nao passa do campo para a Lista ... tenho duvidas sobre a variavel array aItems, mas nao sei o que devo faser , agradeco se alguem puder ajudar , obrigado !

[Pablo César]

Seja bem vindo ao fórum !

Pelo jeito você está procurando uma solução para o seu EDIT do "Pelles C", correto ?
Mesmo que trabalhando com xHarbour, você precisaria esclarecer-me se esse EDIT tem a mesma função que o MemoEdit do Clipper ? Isto é, serve para exibir textos ? Se for, veja que vetores em xBase não são tratados da mesma forma que em C. Você teria que descompor o valor desse vetor, concatenando para uma variável. Cada linha deverá ser um elemento e no final da linha deverá ter um CRLF (isto é: Chr(10)+Chr(13) ). Para fazer isso você terá que criar um laço de repetição e varrer todo o vetor. Acho que é isso.

Outra coisa, na dúvida, compile com o debugger, assim você poderá acompanhar passo a passo e colocar em evidências os valores que contém os vetores e variáveis. Espero ter ajudado, desculpe se fiz confusão em algo.

Obs.: Estou curioso em saber mais essa mistura de xHarbour + Pelles C. Você poderia mostrar-nos alguma tela ?