Eu testei e funcionou. 1) A seguinte atribuicao dah erro na compilacao:
var o : TObject; e : TEdit; begin o := objectLista[ 0 ]; e := (TEdit) o; end; 2) A seguinte atribuicao nao deu nenhum erro de compilacao: 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:09 AM Subject: [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 <*> 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