Erro ao construir uma classe
Fiz isso no meu Form1:
No meu Form2 eu fiz assim:
Está dando erro de access violation no Create da classe. Por que?
type
TCalculadora = Class
private
public
function Soma(V1,V2: Integer):Integer;
end;
function Soma(V1,V2: Integer):Integer;
begin
Result := V1+V2;
end;
No meu Form2 eu fiz assim:
var
calc: TCalculadora;
vl1,vl2:Integer;
begin
vl1 := StrToInt(Edit1.Text);
vl2 := StrToInt(Edit2.Text);
calc := TCalculadora.Create;
Edit3.Text := IntToStr(calc.soma(vl1,vl2));
end
Está dando erro de access violation no Create da classe. Por que?
Paulo
Curtidas 0
Respostas
Paulo
03/06/2008
Resolvi. Estava chamando o create de forma errada.
GOSTEI 0
Brunodsr
03/06/2008
E qual era o erro?? posta aí..
GOSTEI 0
Paulo
03/06/2008
Ao invés de eu chamar assim:
Calc := TCalculadora.Create eu coloquei assim
Calc := Cal.Create;
Como eu fiz às 5 da manhã, estava meio sonolento,eheheheheheheh
(Boa desculpa).
Calc := TCalculadora.Create eu coloquei assim
Calc := Cal.Create;
Como eu fiz às 5 da manhã, estava meio sonolento,eheheheheheheh
(Boa desculpa).
GOSTEI 0
Brunodsr
03/06/2008
Relaxa.. Acontece nas melhores famílias.. hehehe
Um abraço,
Um abraço,
GOSTEI 0