[firebase-br] off-topic: Transformar paraString (TEdit(Components[i]).Name) como?

[Eduardo Jedliczka]

Bom,
  Primeiramente, experimente trocar COMPONENTS por CONTROLS  (e
controlcount)

Depois disto, retire o with! Perceba que está procurando o componente no
form, e pegando o nome do componente do datamodule... (por culpa do With)...

[s]

=====================
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=====================

----- Original Message ----- 
From: "Alessandro Francisco" <cs.alessandro em uol.com.br>
To: <lista em firebase.com.br>
Sent: Friday, October 29, 2004 1:11 PM
Subject: Re: [firebase-br] off-topic: Transformar paraString
(TEdit(Components[i]).Name) como?


> Ei Eduardo, obrigado pela atenção.
>
> Eu estou fanzendo este teste, o problema é que a variável fica em
> branco, não recebe o nome do componente, e mesmo no modo de depuração
> ele acha o componente mas não atribui o valor...
> eu não sei qual é o problema!
>
> o código é esse:
>
>   for I := 0 to ComponentCount - 1 do
>     if Components[I] is TEdit then
>       with DM.Q_Cadastro do
>       try
>         TEdit(Components[i]).Text :=
> FieldByName(Trim(TEdit(Components[i]).Name)).Text;
>       except
>         //Se houver erros quanto ao nome do campo;
>       end;
>
>
> [s]
>
> Alessandro
>
>
>
> eduardo wrote:
>
> > Alessandro
> >
> > TEdit(Components[i]).Name é uma string
> >
> > Acho que você não foi claro o bastante
> > O que você está pretendendo ?
> > Que tipo de erro você está recebendo ?
> > O Componente referenciado por Components[i] é um TEdit ?
> > Se for,  no Owner deste TEdit não há outros objetos como TLabels ou
> > GroupBoxes ?
> > Se sim, Você está testando - if Components[i] is TEdit then ... ?
> >
> > Espero ter ajudado
> > Se você nos der mais subsídios, talvez ossamos ajudar mais
> >
> > [ ]s Eduardo
> >
> >
> > Alessandro Francisco wrote:
> >
> >> Cantú e a todos da lista, desculpem pelo Off-topic, mas não tenho
> >> mais a quem recorer!
> >>
> >> Preciso transformar o resultado disso "TEdit(Components[i]).Name" em
> >> uma string, já tentei de tudo o que eu sei e não consegui, alguém
> >> pode dar uma ajudinha?!
> >>
> >> Ficaria +- assim:
> >>
> >> Campo: String;
> >>
> >> Campo := TEdit(Components[i]).Name;
> >>
> >> Mas não funciona, uso o Delphi 7.
> >>
> >> Grato,
> >>
> >> Alessandro
> >> cs.alessandro em uol.com.br
> >>
> >> ______________________________________________
> >> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> >> Para editar sua configuração na lista, use o endereço
> >> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> >>
> >>
> >
> >
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>