.
Gustavo, ESTOU DECEPCIONADO COMIGO MESMO, exatamente, foi maior "garf". VALEU à todos! --- Em delphi-br@yahoogrupos.com.br, "Gustavo Fujita" <[EMAIL PROTECTED]> escreveu > Vc está se equivocando... num TypeCast com o operador AS é "objeto AS > classe". > > Imaginando que sua instancia (objeto) de TObjectList seja "objectLista" e > que você tenha adicionado a sua lista (objectLista) um TEdit qualquer, o > primeiro passo seria extrair esse objeto da lista, assim: > > obj := objectoLista[0]; // considerando que obj é do tipo TObject > > O segundo passo é fazer o TypeCast para essa instancia, ficando assim: > > edt := obj as TEdit; // considerando edt sendo do tipo TEdit; > > Espero ter sido mais claro. Caso continue o erro, passe um trecho maior do > seu código, incluindo a parte onde vc declara as variáveis. > > Gustavo Fujita > > -----Mensagem original----- > De: Filipe Belchior [mailto:[EMAIL PROTECTED] > Enviada em: segunda-feira, 14 de fevereiro de 2005 10:34 > Para: delphi-br@yahoogrupos.com.br > Assunto: RES: [delphi-br] Re: TObjectList, como obter objetos desejados??? > > > > . > > Gustavo e Clayton, > > Realmente não sei o q é, não está dando certo, o erro de compilação > q mostrei para o Gustavo ocorre exatamente na linha onde atribuo... > > olComercio := TObjectList as obj; > > > > --- Em delphi-br@yahoogrupos.com.br, "Gustavo Fujita" <[EMAIL PROTECTED]> > escreveu > > Em qual linha deu esse erro? > > > > Gustavo Fujita > > > > -----Mensagem original----- > > De: Filipe Belchior [mailto:[EMAIL PROTECTED] > > Enviada em: segunda-feira, 14 de fevereiro de 2005 10:19 > > Para: delphi-br@yahoogrupos.com.br > > Assunto: RES: [delphi-br] Re: TObjectList, como obter objetos > desejados??? > > > > > > > > . > > > > > > Gustavo, > > > > > > [Error] uEBoleto.pas(156): Operator not applicable to this operand type > > > > > > > > --- Em delphi-br@yahoogrupos.com.br, "Gustavo Fujita" <[EMAIL PROTECTED]> > > escreveu > > > Filipe, > > > > > > Claro que é possível fazer esse tipo de TypeCast no Delphi. Ficaria, > > de uma > > > maneira elegante, assim: > > > > > > var > > > o: TObject; > > > e: TEdit; > > > begin > > > o := objectLista[0]; > > > if (o is TEdit) then > > > e := o as TEdit; > > > end; > > > > > > > > > Gustavo Fujita > > > > > > -----Mensagem original----- > > > De: Filipe Belchior [mailto:[EMAIL PROTECTED] > > > Enviada em: segunda-feira, 14 de fevereiro de 2005 10:10 > > > Para: delphi-br@yahoogrupos.com.br > > > Assunto: [delphi-br] Re: TObjectList, como obter objetos desejados??? > > > > > > > > > > > > Clayton, > > > > > > como eu disse, isso não é possível, pois não pode-se converter > > > uma classe para uma de hierarquia abaixo, como no seu exemplo. > > > > > > TEdit --> TObject ...isso é possível! > > > TObject --> TEdit ...isso NÃO! > > > > > > > > > --- Em delphi-br@yahoogrupos.com.br, "clayton" <[EMAIL PROTECTED]> escreveu > > > > Voce tentou algo como : > > > > > > > > var > > > > o : TObject; > > > > e : TEdit; > > > > > > > > begin > > > > > > > > o := objectLista[ 0 ]; > > > > e := o as TEdit; > > > > > > > > end; > > > > > > > > > > > > ----- Original Message ----- > > > > From: "Filipe Belchior" <[EMAIL PROTECTED]> > > > > To: <delphi-br@yahoogrupos.com.br> > > > > Sent: Monday, February 14, 2005 10:42 AM > > > > Subject: [delphi-br] TObjectList, como obter objetos desejados??? > > > > > > > > > > > > > > > > > > Olá! paz! > > > > > > > > > > Estou usando pela 1a. vez a classe TObjectList, pelo nome da > > classe é > > > > > possível > > > > > imaginar para q serve! > > > > > Esta classe é semelhante a TStringList... minha difuldade está em > > > > > resgatar os > > > > > objetos da lista, pois como se sabe, ou deveria se saber, não é > > > possível > > > > > "converter" > > > > > (perdão, esqueci o termo propício) uma classe por uma de > "hierarquia > > > > > abaixo". > > > > > Como obviamente todos os objetos da lista estão como TObject, > não é > > > > > possível > > > > > o seguinte: > > > > > > > > > > ex.: (TEdit)objectLista1[0]; > > > > > > > > > > ...tentei também o seguinte: > > > > > > > > > > ex.: obj1 := objectLista[0]; edit1 := (TEdit)@obj1; > > > > > > > > > > ...também não. Até compila, mas na linha da atribuição ao "edit1", > > > > > ocorre "access violation" > > > > > > > > > > Agradeço a ajuda... > > > > > > > > > > > > > > > Filipe Belchior > > > > > ICQ 283735340 > > > > > MSNM [EMAIL PROTECTED] > > > > > > > > > > > > > > > > > > > > -- > > > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > > > > > Para ver as mensagens antigas, acesse: > > > > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > > > > > > > Para falar com o moderador, envie um e-mail para: > > > > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > > > > > > Links do Yahoo! Grupos > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > -- > > > > > No virus found in this incoming message. > > > > > Checked by AVG Anti-Virus. > > > > > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: > 10/2/2005 > > > > > > > > > > > > > > > > > > > > > > > > > > -- > > > > No virus found in this outgoing message. > > > > Checked by AVG Anti-Virus. > > > > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005 > > > > > > > > > > > > > > > > > > -- > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > Para ver as mensagens antigas, acesse: > > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > > > Para falar com o moderador, envie um e-mail para: > > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > > Links do Yahoo! Grupos > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > -- > > > No virus found in this incoming message. > > > Checked by AVG Anti-Virus. > > > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005 > > > > > > > > > -- > > > No virus found in this outgoing message. > > > Checked by AVG Anti-Virus. > > > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005 > > > > > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Para ver as mensagens antigas, acesse: > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > Para falar com o moderador, envie um e-mail para: > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > Links do Yahoo! Grupos > > > > > > > > > > > > > > > > > > > > -- > > No virus found in this incoming message. > > Checked by AVG Anti-Virus. > > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005 > > > > > > -- > > No virus found in this outgoing message. > > Checked by AVG Anti-Virus. > > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005 > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005 > > > -- > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
