Ja ouviram falar em DelphiWebScript, é bem interessante para este tipo de problema.
http://www.dwscript.com Murillo Proença --- Em delphi-br@yahoogrupos.com.br, "Elazar" <[EMAIL PROTECTED]> escreveu > > *********************************** > 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 >>>>> <*> 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
