Clipper On Line • Ver Tópico - Atribuir valor para uma variável ?

Atribuir valor para uma variável ?

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Atribuir valor para uma variável ?

Mensagempor Itamar M. Lins Jr. » 17 Set 2018 14:26

Ola!
Segue o código:
Function main
LOCAL cNome
xVar := " cNome:='Joao da Silva' "
? xVar
? &xVar
? cNome
Return Nil

Como eu faço para "LOCAL cNome" ficar com o conteúdo := "Joao da Silva" ?
No caso a saida ai do test.prg é:
itamar@samsung:~/fontes/teste$ ./test 
   
cNome:='Joao da Silva'                                                         
Joao da Silva         
NIL         
itamar@samsung:~/fontes/teste$


Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Atribuir valor para uma variável ?

Mensagempor Itamar M. Lins Jr. » 17 Set 2018 14:43

Ola!
Quem é Marco ?
No caso Macro rsrsrs tô aqui pensando esse cara me persegue rsrsrs (no caso o Marcos) amigo meu rsrsr
Mas ai não compila com -W3 snif!

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Atribuir valor para uma variável ?

Mensagempor Itamar M. Lins Jr. » 17 Set 2018 14:49

Ola!
Acho que assim fica bom.
MemVar cNome
Function main
xVar := "cNome:='Joao da Silva'"
? xVar
? &xVar
? cNome
Return Nil


Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Atribuir valor para uma variável ?

Mensagempor JoséQuintas » 17 Set 2018 15:23

Cuidado com o que espera
Veja resultado diferente pra variável LOCAL e PRIVATE

testehb.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Atribuir valor para uma variável ?

Mensagempor JoséQuintas » 17 Set 2018 15:35

Tentei convertendo pra codeblock, mas mesmo resultado.

#include "hbgtinfo.ch"

MEMVAR cOutro

PROCEDURE main

   LOCAL cVar := "cNome := 'teste de variavel local'"
   LOCAL cVar2 := "cOutro := 'teste de variavel local'"
   LOCAL cNome
   PRIVATE cOutro

   ? cVar
   ? Eval( MyMacro( cVar ) )
   ? cNome
   ? cVar2
   ? Eval( MyMacro( cVar2 ) )
   ? cOutro
   Inkey(0)

   RETURN

FUNCTION MyMacro( cValue )

   RETURN &( "{ || " + cValue + " }" )


É como se macro fosse uma função, e portanto a variável local não fica visível.
neste caso do codeblock idem.

Nota: apenas comentário: este segundo caso pode ser interessante pra evitar erro em macro, porque dá pra fazer tratamento de erro na função
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Atribuir valor para uma variável ?

Mensagempor JoséQuintas » 17 Set 2018 15:44

Separando o nome da variável, mesmo resultado.

testehb.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro