<http://www.moked.com.br/> Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br <http://www.moked.com.br/>
Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação ------------------------------------------------------------------------- Elazar, Obrigada pelo exemplo, vou ver se consigo fazer isso ai. É o jeito...rs.. VAlew Tamara "O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo". Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! ________________________________ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Elazar Enviada em: quarta-feira, 18 de janeiro de 2006 17:16 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Declaração de variavel ñ definida *********************************** Pessoal, é uma perguntinha meio boba, mas estou confusa, e achu q por ser tão bobinha, ñ ?encontrei na internet. Como eu declaro uma variável no meio do programa? Por exemplo: eu tenho la uma seguencia de verificações, dependendo do caso, eu quero criar uma variavel, com msm nome, mas com tipo diferente. Na real seria criar um objeto, pra issu teria q atribuir : variavel : TClasse! mas isto seria para um caso, mas se o programa entrar em outro IF eu teria q criar assim: variavel : TClasse2. Entenderam? Então eu ñ posso estabelecer isso no inicio da rotinas e sim no meio dela. O q esta me confundinco é como fazer isso. Só vem em minha cabeça como fazer isso em C++, q seria assim: int variavel ou float variavel, mas em Delphi... Alguém pode me ajudar? *********************************** boa tarde; sinto muito mas em delphi tem somente uma declaracao de var, e somente ali e possivel criar as variaveis. um tempo atraz eu precicei de algo um pouco semelhante, de uma olhada (a titulo de exemplo somente) procedure TForm1.Button1click(Sender : TObject); var vVariavel : TObject; vVariavel1 : TClasse1; vVariavel2 : TClasse2; vX : Integer; begin { Estou convertendo o numero passado pelo edti } vX := StrToInt(Edit1.Text); { Verifica se o numero é igual a 1 } if vX = 1 then begin { Se for entao inicializo a variavel 1 e passo uma referencia a variavel, que um tipo 'pai' das duas } vVariavel1 := TClasse1.Create; vVariavel := vVariavel1; end else begin { Se for entao inicializo a variavel 2 e passo uma referencia a variavel, que um tipo 'pai' das duas } vVariavel1 := TClasse1.Create; vVariavel := vVariavel2; end; { Posso testar qual das duas esta armazenada.. } if (vVariavel is TClasse1) then begin { ... } end else if (vVariavel is TClasse2) begin { ... } end; end; { A ideia e essa!!!! } Atenc. Elazar _______________________________________________________ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE <http://br.rd.yahoo.com/SIG=12f0nu01r/M=387526.7663462.8711128.1588051/D=brclubs/S=2137111264:HM/Y=BR/EXP=1137618895/A=3244686/R=2/id=noscript/SIG=16ea5dsno/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=10157&LID=293453&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs> ________________________________ 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] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . [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] 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