Erro ao construir uma classe

03/06/2008

2

Fiz isso no meu Form1:
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?


Responder

Posts

03/06/2008

Paulo

Resolvi. Estava chamando o create de forma errada.


Responder

03/06/2008

Brunodsr

E qual era o erro?? posta aí..


Responder

03/06/2008

Paulo

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).


Responder

04/06/2008

Brunodsr

Relaxa.. Acontece nas melhores famílias.. hehehe

Um abraço,


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar