Na trave, André! Sugiro que vc leia a resposta que eu mandei pra lista sobre
esse assunto. Sds.
>From: "Andre Veloso de Mesquita" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: <delphi-br@yahoogrupos.com.br>
>Subject: Re: [delphi-br] acesso variado a campo de record
>Date: Wed, 27 Dec 2006 14:08:13 -0200
>
>Acho que você está no caminho da OO...
>
>Para que implementar métodos para acessar um "record" se você pode criar um
>objeto?!
>
>dá uma olhada nisso:
>
>type
> Str50 = String[50];
> TDados = class(TObject)
> private
> FCodigo: Integer;
> FNome: Str50;
> FData: TDateTime;
> procedure setCodigo(const Value: Integer);
> procedure setData(const Value: TDateTime);
> procedure setNome(const Value: Str50);
> published
> property Codigo : Integer read FCodigo write setCodigo;
> property Nome : Str50 read FNome write setNome;
> property Data : TDateTime read FData write setData;
> end;
>
>
>implementation
>
>{ TDados }
>
>procedure TDados.setCodigo(const Value: Integer);
>begin
> FCodigo := Value;
>end;
>
>procedure TDados.setData(const Value: TDateTime);
>begin
> FData := Value;
>end;
>
>procedure TDados.setNome(const Value: Str50);
>begin
> FNome := Value;
>end;
>
>end.
>
>----- Original Message -----
>From: "Alencar - Philler Informatica" <[EMAIL PROTECTED]>
>To: <delphi-br@yahoogrupos.com.br>
>Sent: Wednesday, December 27, 2006 11:37 AM
>Subject: Re: [delphi-br] acesso variado a campo de record
>
>
>On 12/27/06, Eric D. <[EMAIL PROTECTED]> wrote:
> > Troque o tipo de STRING para o SEUTIPO (TDados no caso). Então vc pode
> > acessar o field do record normalmente no result de sua função.
> >
> > []'s
> >
> > Eric D. - Desenvolvimento e Soluções de Tecnologia
>
>Eric, acho que eu nao me fiz entender.
>No parametro da funcao, é passado o nome do campo que contem o valor
>a ser retornado, entende?
>
>A chamada seria assim:
>
>getValue('data'): retorna o valor do campo data
>getValue('codigo'): retorna o valor do campo codigo....
>
>Alencar
>
>---------------------------------------
> Philler Informatica Ltda
> Jose Alencar Philereno
> ICQ 13458351
>Messenger/Skype (voz): alencar
>
>"Feliz aquele que transfere o que sabe
>e aprende o que ensina" Cora Coralina
>
>
>--
><<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>Links do Yahoo! Grupos
>
>
_________________________________________________________________
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
