Troque a declaração de
TClasse = class
para
TClasse = type TClass
e veja os resultados.
Se der certo, informe-se sobre TClass no help do Delphi.
Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 12 Nov 2007 09:00:58
-0200Subject: [delphi-br] Referencia de classe como parâmetro
Fiz um teste com a passagem de uma classe como parâmetro e obtive
umcomportamento inesperado. O código resumido está abaixo:typeTClasse =
classpublicconstructor Create;virtual;end;procedure TForm1.Button1Click(Sender:
TObject);beginCria(TClasse);end;{ TClasse }constructor
TClasse.Create;beginShowMessage('Create disparado!');end;procedure
TForm1.Cria(ClassRef:TClass);VarObj:TObject;beginObj :=
ClassRef.Create;FreeAndNil(Obj);end;Na função CRIA, ao chamar o create da
ClassRef, o create da TCLASSE não édisparado. O ShowMessage não acontece.
Alguém sabe me explicar o pq?[]´sSérgio Uetanabaro[As partes desta mensagem que
não continham texto foram removidas]
_________________________________________________________________
Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger!
http://spaces.live.com/signup.aspx
[As partes desta mensagem que não continham texto foram removidas]
