***********************************
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
