=?iso-8859-1?Q?RES:_RES:_RES:__=5Bdelphi-br=5D_=5BOFF_TOPIC=5D_Tecnologo_?= =?iso-8859-1?Q?X_Bacharelado_X_Certifica=E7=E3o?=
Cursei na Uniban, em Sampa. Gustavo Fujita -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de leandro guimaraes Enviada em: sexta-feira, 6 de maio de 2005 17:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: RES: [delphi-br] [OFF TOPIC] Tecnologo X Bacharelado X Certificação Qual e sua faculdade Gustavo Fujita [EMAIL PROTECTED] escreveu:Não querendo colocar mais lenha na fogueira, eu fiz um curso superior de 4 anos (aulas de segunda a sexta, 4hs/aula por dia) e saí com os dois diplomas, de Bacharel em Sistemas de Informações e Tecnólogo em Análise de Sistemas. Ambos são autorizados pelo MEC, porém apenas o curso de Bacharel em Sistemas de Informações possui o reconhecimento. Na mesma faculdade, o pessoal que cursou os 3 anos para Tecnólogo em Processamento de Dados, poderia fazer mais um ano (totalizando os 4 anos) e sair também com o diploma de Bacharel. Gustavo Fujita -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alosi yarru Enviada em: sexta-feira, 6 de maio de 2005 13:41 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] [OFF TOPIC] Tecnologo X Bacharelado X Certificação Não estou querendo criticar, apenas é minha opinião. Tem o seguinte tbm, numa m#$%@ de uma Faculdade onde minha esposa estuda, eles não aceitam aproveitamento de disciplinas de cursos de tecnologos. Essa Facul., é muito ruim, os professores não são bem preparados, colocam um nome de disciplina e depois os alunos cursam outra que equivale, os professores ministram aulas e estágios no mesmo horário, realmente uma M. t+ - Original Message - From: Demian Lessa To: delphi-br@yahoogrupos.com.br Sent: Friday, May 06, 2005 12:15 PM Subject: Re: RES: [delphi-br] [OFF TOPIC] Tecnologo X Bacharelado X Certificação Alosi, Respire fundo! O comentário não foi direcionado pessoalmente a você ou aos tecnólogos em geral. O que se colocou foi que os cursos são claramente distintos e que, via de regra, um bacharelado oferece maior conteúdo e carga-horária que um curso de tecnologia. Portanto, há mais tempo para se abordar temas, assuntos e questões da computação e de áreas afins que os cursos de tecnologia não têm. A conclusão lógica é que se espera mais de um bacharel do que de um tecnólogo do ponto de vista de bagagem e formação acadêmica no mercado de trabalho. Em todo curso haverá alunos bons, muito bons, ruins, péssimos e medianos... É tudo uma questão de interesse, perseverança, trabalho, esforço, etc. Ninguém, em momento algum da discussão, desmereceu quem quer que fosse ou afirmou que uma formação determinará superioridade técnica/profissional em relação à outra. Então, relaxe e procure entender que a discussão gira em torno das diferenças nos cursos e na forma como eles são ministrados. As pessoas e o mérito pessoal de cada um estão fora do escopo de nossa discussão. E antes de exasperar-se, apresento meu depoimento como tecnólogo e não como bacharel. ;) Cordialmente, Demian Lessa Salvador - Brasil Alosi yarru wrote: Eu sou tecnólogo em processamento de dados, primeira turma e dou pau em muito bacharel, não me venha dizer que o tecnólogo não sabe, apenas o título é desconsiderado. t+ -- 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- 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.308 / Virus Database: 266.11.5 - Release Date: 4/5/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.5 - Release Date: 4/5/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
=?iso-8859-1?Q?RES:_RES:__=5Bdelphi-br=5D_=5BOFF_TOPIC=5D_Tecnologo_X_Bac?= =?iso-8859-1?Q?harelado_X_Certifica=E7=E3o?=
Não querendo colocar mais lenha na fogueira, eu fiz um curso superior de 4 anos (aulas de segunda a sexta, 4hs/aula por dia) e saí com os dois diplomas, de Bacharel em Sistemas de Informações e Tecnólogo em Análise de Sistemas. Ambos são autorizados pelo MEC, porém apenas o curso de Bacharel em Sistemas de Informações possui o reconhecimento. Na mesma faculdade, o pessoal que cursou os 3 anos para Tecnólogo em Processamento de Dados, poderia fazer mais um ano (totalizando os 4 anos) e sair também com o diploma de Bacharel. Gustavo Fujita -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alosi yarru Enviada em: sexta-feira, 6 de maio de 2005 13:41 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] [OFF TOPIC] Tecnologo X Bacharelado X Certificação Não estou querendo criticar, apenas é minha opinião. Tem o seguinte tbm, numa m#$%@ de uma Faculdade onde minha esposa estuda, eles não aceitam aproveitamento de disciplinas de cursos de tecnologos. Essa Facul., é muito ruim, os professores não são bem preparados, colocam um nome de disciplina e depois os alunos cursam outra que equivale, os professores ministram aulas e estágios no mesmo horário, realmente uma M. t+ - Original Message - From: Demian Lessa To: delphi-br@yahoogrupos.com.br Sent: Friday, May 06, 2005 12:15 PM Subject: Re: RES: [delphi-br] [OFF TOPIC] Tecnologo X Bacharelado X Certificação Alosi, Respire fundo! O comentário não foi direcionado pessoalmente a você ou aos tecnólogos em geral. O que se colocou foi que os cursos são claramente distintos e que, via de regra, um bacharelado oferece maior conteúdo e carga-horária que um curso de tecnologia. Portanto, há mais tempo para se abordar temas, assuntos e questões da computação e de áreas afins que os cursos de tecnologia não têm. A conclusão lógica é que se espera mais de um bacharel do que de um tecnólogo do ponto de vista de bagagem e formação acadêmica no mercado de trabalho. Em todo curso haverá alunos bons, muito bons, ruins, péssimos e medianos... É tudo uma questão de interesse, perseverança, trabalho, esforço, etc. Ninguém, em momento algum da discussão, desmereceu quem quer que fosse ou afirmou que uma formação determinará superioridade técnica/profissional em relação à outra. Então, relaxe e procure entender que a discussão gira em torno das diferenças nos cursos e na forma como eles são ministrados. As pessoas e o mérito pessoal de cada um estão fora do escopo de nossa discussão. E antes de exasperar-se, apresento meu depoimento como tecnólogo e não como bacharel. ;) Cordialmente, Demian Lessa Salvador - Brasil Alosi yarru wrote: Eu sou tecnólogo em processamento de dados, primeira turma e dou pau em muito bacharel, não me venha dizer que o tecnólogo não sabe, apenas o título é desconsiderado. t+ -- 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- 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.308 / Virus Database: 266.11.5 - Release Date: 4/5/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.5 - Release Date: 4/5/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
RES: [delphi-br] Alguem conhece uma funcao no mysql ou no delphi
Mutuka,
Faça assim, seguindo seu exemplo:
var
Soma: Integer;
Teste: Integer;
Begin
Soma := 2 + 8 + 32; 42
Teste := 2;
if (Soma AND Teste) = Teste then
ShowMessage('SIM')
else
ShowMessage('NÃO');
end;
Você pode facilmente transformar isso em uma função. Qualquer dúvida é só
falar.
[]´s
Gustavo Fujita
-Mensagem original-
De: [ Mutuka ] [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 10 de março de 2005 14:14
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Alguem conhece uma funcao no mysql ou no delphi
Alguem conhece uma funcao no mysql ou no delphi
que verifique se um valor X está presente em um
numero Y formado pela soma de outros numeros
estilo questao de somatoria em vestibular? ex de
como funfa
1
2
4
8
16
32
por exemplo se eu pegar o 2,8,32 somando fica 42
ai a função funcionaria assim:
if func(2,42) then sim else nao;
if func(1,42) then sim else nao;
as respostas seriao sim e nao consecutivamente...
estou querendo essa funcao para criar um tipo de
validação (pensando alto!!!)
Leandro...
[ Mutuka ]
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
--
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.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/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
RES: [delphi-br] Alguem conhece uma funcao no mysql ou no delphi
Opa! Desculpa, me esqueci do grande detalhe! Tem que ser sempre 2 elevado a alguma coisa 2 elevado a 0 = 1; 2 elevado a 1 = 2; 2 elevado a 2 = 4 e assim por diante... (1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, ...) []´s Gustavo Fujita -Mensagem original- De: Gabriel Ferrarini [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 10 de março de 2005 16:14 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Alguem conhece uma funcao no mysql ou no delphi Gustavo, creio que isso não dará certo: veja esse exemplo: 0001 0011 = 19 1011 = 11 1000 = 8 0001 0011 = 19 1011 = 11 realizando um AND teremos 0011 = 3. Apesar de 11 fazer parte da soma de 19, se usarmos o operador AND entre eles obteremos o número 3. Gabriel. [As partes desta mensagem que não continham texto foram removidas] -- 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.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/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
RES: [delphi-br] Repor TAXA % para saber o valor real
X := valor_final / (1 - taxa); No seu caso: X := 95 / (1 - 0.05); Gustavo Fujita -Mensagem original- De: Marcelo Silva [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 16 de fevereiro de 2005 11:21 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Repor TAXA % para saber o valor real Tenho a função SUM(VALOR-(VALOR*TAXA)/100) AS SVALOR Deste modo tenho meu valor com desconto A questão: Como retornar a taxa para saber o valor real da venda ? Tipo 100 - 5% sei que é 95 e para voltar como seria ? tenho os numero 95 que é o resultante e os 5% que é a taxa como chegaria aos 100 reais ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [As partes desta mensagem que não continham texto foram removidas] -- 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.8 - Release Date: 14/2/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/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
RES: RES: [delphi-br] Off Topic.... Problema matemático...
Não é melhor simplificar as coisas? Se a operação para calculo de percentual é: valor * (1 + percentual), basta fazer o inverso para se chegar ao valor de origem. Nesse caso ficaria assim: X := 5.6 / (1 + 0.15); O resultado seria 4.8695652173913043478260869565217, arredondando 4.87. Logo, 4.87 * (1 + 0.15) = 5.6005, que arredondando da os 5.6 originais. Gustavo Fujita -Mensagem original- De: Nicholas Eduardo [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 15 de fevereiro de 2005 10:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Off Topic Problema matemático... Ola... Este resultado q vc esta buscando soh será possível a aproximação se vc trabalhar com mais do que duas casas decimais. []s Nicholas Eduardo Lopes dos Santos Analista/Programador - Desenvolvimento E-mail: [EMAIL PROTECTED] Msn: [EMAIL PROTECTED] Datapar - S.R.L. Ciudad del Este - Py - Original Message - From: Weber Luvisa To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 15, 2005 8:08 AM Subject: Re: RES: [delphi-br] Off Topic Problema matemático... Apens um pequino problema... X = 5.6 - (5.6 * 0.15) X = 5.6 - 0.84 x = 4.76 Porem: 4.76 * 15% = 5.474 (preciso que o valor de retorno seje: 5.6 Grato ! --- Em delphi-br@yahoogrupos.com.br, Fernanda Prado [EMAIL PROTECTED] escreveu x = 5.6 - (5.6 * 0.15) Fernanda -Mensagem original- De: Weber Luvisa [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 15 de fevereiro de 2005 08:34 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Off Topic Problema matemático... Olá amigos, preciso criar uma formula em meu sistema que se da da seguinte maneira. Exemplo: TENHO 5,60, sei que isso é decorrrente de x + 15%, Como fasso para achar o valor de X ? Grato. -- 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 -- 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- 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.8 - Release Date: 14/2/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/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
RES: [delphi-br] Re: TObjectList, como obter objetos desejados???
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 * 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
RES: [delphi-br] Re: TObjectList, como obter objetos desejados???
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 * 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
RES: [delphi-br] Re: TObjectList, como obter objetos desejados???
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
RES: RES: [delphi-br] Re: TObjectList, como obter objetos desejados???
Demian, Em algum lugar, que não me lembro onde (deve ter sido alguma palestra da Borland), desaconselhando o uso de Casting Forçado. Se eu me lembro bem tem alguma coisa a ver com o Delphi 8/2005 e .NET, mas não lembro ao certo. Alguém poderia dar uma luz sobre o assunto? (quero lembrar que eu posso estar me confundindo) Gustavo Fujita -Mensagem original- De: Demian Lessa [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 14 de fevereiro de 2005 10:39 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Re: TObjectList, como obter objetos desejados??? Sem querer causar controvérsias, gostaria de comentar sobre if (o is TEdit) then e := o as TEdit; O objetivo do operador AS é fazer um typecast com uma verificação de tipo antes. Esse operador gera uma exceção caso os tipos do cast não sejam compatíveis. Se você já verificou que os tipos são compatíveis e usa o AS você acaba verificando a compatibilidade de tipos DUAS vezes desnecessariamente. Então, o melhor seria if (o is TEdit) then e := TEdit(o); ou, caso você deseje que a exceção chegue até você e := (o as TEdit); Cordialmente, Demian Lessa Salvador - Brasil Gustavo Fujita wrote: 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 -- 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
RES: [delphi-br] Mensagem de Erro
No site da Borland tem a atualização do MDAC que vc precisa... Gustavo Fujita -Mensagem original- De: Depto de Informatica [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 14 de fevereiro de 2005 16:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Mensagem de Erro Caros colegas, Utilizo Delphi 5, MsAccess e ADO e meus sistemas apresentam o seguinte erro em algumas máquinas: Either BOF or EOF is true, or the current record has been deleted. Request operation requires a current record. Alguém sabe porque está aparecendo esta mensagem de erro ao fechar algumas tabelas ? Obrigado, Luiz Carlos [As partes desta mensagem que não continham texto foram removidas] -- 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
RES: [delphi-br] Variant
Como informei em meu outro e-mail, utilize a Unit Variants na clausula uses,
ficando assim:
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, Variants;
Gustavo Fujita
-Mensagem original-
De: info.Desenvolvimento [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 11 de fevereiro de 2005 10:52
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Variant
Pessoal desculpem o transtorno mas preciso dessa ajuda.
O problema é o seguinte (e-mails anteriores), eu tinha D5 eagora tenho D7,
quando fui compilar o sistema deu erro na variant, abaixo segue o meu código
completo:
Onde está o erro?
MINHA UNIT:
unit UTMdica;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls;
type
TFtMedica = class(TForm)
Panel1: TPanel;
BitGrava: TBitBtn;
BitCancela: TBitBtn;
BitDeleta: TBitBtn;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEdit2: TDBEdit;
Label4: TLabel;
DBEdit3: TDBEdit;
SBPesq: TSpeedButton;
DBText1: TDBText;
Edit2: TEdit;
Edit1: TEdit;
DBText2: TDBText;
procedure BitAlteraClick(Sender: TObject);
procedure BitGravaClick(Sender: TObject);
procedure BitCancelaClick(Sender: TObject);
procedure BitDeletaClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SBPesqClick(Sender: TObject);
procedure DBComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit2Exit(Sender: TObject);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Edit1Exit(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FtMedica: TFtMedica;
V: Variant;
implementation
uses UDataModulo, UPesq_Medica, UnInicial;
{$R *.DFM}
Gera o seguinte erro ([Error] UTMdica.pas(171): Undeclared identifier:
'VarArrayCreate')
Em todos os forms que eu uso a Variant está com o mesmo erro. O que eu fiz e
solucionou para alguns Forms.
Fui em File - Use Unit - Acrescentei todas as units, mas em alguns continua
o erro
** AQUI QUE ESTÁ O PROBLEMA:
{EVENTO ON EXIT DO EDIT}
procedure TFtMedica.Edit2Exit(Sender: TObject);
Begin
{CÓDIGO PARA LOCATE EM CHAVE COMPOSTA}
** V := VarArrayCreate([0,1], varOleStr);
if Edit2.Text = '' then
begin
Application.MessageBox('Campo Vazio - Preencher o campo'+#13'Pressione
ESC',
'Aviso', mb_iconExclamation);
Edit2.SetFocus;
end else
begin
{CÓDIGO PARA LOCATE EM CHAVE COMPOSTA}
DataModulo.TMedica.Active:= True;
V[0]:= EDIT1.TEXT;
V[1]:= EDIT2.TEXT;
If(DataModulo.TMedica.Locate('TPMEDICA;CDMEDICA', V,[]))then
begin
Edit1.Text:=DataModulo.TMEDICA.FieldByName('TPMEDICA').AsString;
Edit2.Text:=DataModulo.TMEDICA.FieldByName('CDMEDICA').AsString;
Caption:= 'ICM: Alterar/Deletar/Cancelar-Esc Aborta a operação';
Edit1.visible:= False;
Edit2.visible:= False;
DBText1.Visible:= True;
DBText2.Visible:= True;
DataModulo.TMedica.Edit;
Caption:= 'ICM: Alteração - ESC Aborta a operação';
DBEdit2.SetFocus;
BitGrava.Enabled:= True;
BitCancela.Enabled:=True;
BitDeleta.Enabled:= True;
end else
begin
DataModulo.TMEDICA.Append;
Caption:= 'ICM: Novo Registro - ESC Aborta a operação';
DataModulo.TMEDICA.FieldByName('TPMEDICA').AsString:= Edit1.Text;
DataModulo.TMEDICA.FieldByName('CDMEDICA').AsString:= Edit2.Text;
BitGrava.Enabled:= True;
BitCancela.Enabled:= True;
BitDeleta.Enabled:= True;
DBEdit2.SetFocus;
end;
end;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
--
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
