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

[Eliomar]

eu fiz um teste aqui assim e funcionou que uma blz.... 

  for I := 0 to ComponentCount - 1 do
   if Components[I] is TEdit then
     try
       TEdit(Components[i]).Text := IBDataSet1.FieldByName(TEdit(Components[i]).Name).AsString;
     except
       //Se houver erros quanto ao nome do campo;
     end;

Agradecido.
Eliomar,
ICQ - 167715482
Soft-Data Softwares Administrativos
hptt://www.promediconet.com.br


------------- Segue mensagem original! -------------

De: Alessandro Francisco <cs.alessandro em uol.com.br>
Data: Fri, 29 Oct 2004 13:11:24 -0200
Para: lista em firebase.com.br
Assunto: Re: [firebase-br] off-topic: Transformar para	String	(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