Fórum Access Violation em Objeto instanciado. #323818
20/06/2006
0
function TColecaoCampos.Add(Campo: TCampo): TCampo;
begin
result :=inherited Add as TCampo; //O erro Acontece aqui.
end;
function TColecaoCampos.Add(Campo1:String;Campo2:String): TCampo;
var
AddCampo:TCampo;
begin
AddCampo:=TCampo.Create();
AddCampo.Id :=self.Count;
AddCampo.NomePrincipal:=campo1;
AddCampo.NomeSecundario:=campo2;
self.Add(addcampo); //Debugando este self e igaul a nil
end;
Se alguem puder me ajudar eu agradeço.
Rogeriorock
Curtir tópico
+ 0Posts
20/06/2006
Micheus
...
AddCampo.NomeSecundario:=campo2;
Add(addcampo);
end;
Gostei + 0
20/06/2006
Rogeriorock
Classe1
metodos
properiredades
etc....
end
Classe2
private
_Campo:Classe1;
Function GetClasse1:Classe1;
public
Porperty Class1:Class1 read GetClasse1 write _Class1;
implement
Function Class2.GetClass1:Class1
begin
if _class1=nil then
_Class1:=Classe1.Create;
result:=_Class1;
end;
E meio tosco mas resolve tirei o create do Construtor da Classe e coloquei direto na chamada da propriedade, ate que eu endenda este misterio rsrsrsrs
Gostei + 0
21/06/2006
Micheus
function TColecaoCampos.Add(Campo: TCampo): TCampo; begin result :=inherited Add as TCampo; //O erro Acontece aqui. end;
Gostei + 0
22/06/2006
Rogeriorock
function Add(Campo:TCampo):TCampo;overload;//Esta e a declaração basica da classe.
function Add(Campo1:String;Campo2:String):TCampo;overload;//Este e o overload que crie para poder estanciar o tipo so pasando alguns parametros.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)