Fórum Erro ao construir uma classe #359423

03/06/2008

0

Delphi

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?


Paulo

Paulo

Responder

Posts

03/06/2008

Paulo

Resolvi. Estava chamando o create de forma errada.


Responder

Gostei + 0

03/06/2008

Brunodsr

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


Responder

Gostei + 0

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

Gostei + 0

04/06/2008

Brunodsr

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

Um abraço,


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar