Erro ao construir uma classe
03/06/2008
0
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
Curtir tópico
+ 0
Responder
Posts
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).
Calc := TCalculadora.Create eu coloquei assim
Calc := Cal.Create;
Como eu fiz às 5 da manhã, estava meio sonolento,eheheheheheheh
(Boa desculpa).
Responder
Clique aqui para fazer login e interagir na Comunidade :)