[delphi-br] Objeto para string
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
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
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]