[delphi-br] Objeto para string

2010-06-14 Por tôpico Anderson
TPessoa = class
  private
Fnome : string;
Fendereco : string;
Fpais : string;
  public
property nome: string read Fnome write Fnome;
property endereco: string read Fendereco write Fendereco;
property pais: string read Fpais write Fpais;
  end;

queria pegar esse objeto TPessoa e passar para uma string
que ficaria mais ou menos assim:

Pessoa.nome = NOME
Pessoa.endereco = ENDERECO
pessoa.pais = PAIS



alguma sugestao??

obrigado

Anderson



Re: [delphi-br] Objeto para string

2010-06-14 Por tôpico Dirlei
Vc pode criar um método TPessoa.GetAsString: string; que retorne o
conteudo que você precisa.



-- 
Dirlei Dionísio

Novo artigo: O estágio House do bom programador
http://MaisQueBomCodigo.blogspot.com


Em Seg, 2010-06-14 às 14:55 +, Anderson escreveu:
   
 TPessoa = class
 private
 Fnome : string;
 Fendereco : string;
 Fpais : string;
 public
 property nome: string read Fnome write Fnome;
 property endereco: string read Fendereco write Fendereco;
 property pais: string read Fpais write Fpais;
 end;
 
 queria pegar esse objeto TPessoa e passar para uma string
 que ficaria mais ou menos assim:
 
 Pessoa.nome = NOME
 Pessoa.endereco = ENDERECO
 pessoa.pais = PAIS
 
 alguma sugestao??
 
 obrigado
 
 Anderson
 
 
 
 
 



Re: [delphi-br] Objeto para string

2010-06-14 Por tôpico Josimar Zimermann
Olá Anderson, eu tenho uma sugestão:

Crie na sua classe um método/função chamado *ToString* que retorna uma 
string e concatene as informações desejadas:

function TPessoa.ToString: string;
const
S_PESSOA_TO_STR = 'Pessoa.nome = %s' + #13 + 'Pessoa.endereco = %s' 
+ #13 + 'Pessoa.pais = %s';
begin
Result := Format(S_PESSOA_TO_STR, [Fnome, Fendereco, Fpais]);
end;

Boa programação!

Em 14/6/2010 11:55, Anderson escreveu:

 TPessoa = class
 private
 Fnome : string;
 Fendereco : string;
 Fpais : string;
 public
 property nome: string read Fnome write Fnome;
 property endereco: string read Fendereco write Fendereco;
 property pais: string read Fpais write Fpais;
 end;

 queria pegar esse objeto TPessoa e passar para uma string
 que ficaria mais ou menos assim:

 Pessoa.nome = NOME
 Pessoa.endereco = ENDERECO
 pessoa.pais = PAIS

 alguma sugestao??

 obrigado

 Anderson




[As partes desta mensagem que não continham texto foram removidas]