Delphi
Cuando declaro una clase para hacer un objeto en la sección de public declaro una function o un procedimiento me da este error:
[Error] Unit2.pas(12): Unsatisfied forward or external declaration: 'maximo.max'
No puedo resolver este problema.
Esta es mi clase:
unit Unit2;
interface
Uses
SysUtils,classes;
type
maximo=class
private
n1:integer;
n2:integer;
public
procedure max;
end;
implementation
end.
[Error] Unit2.pas(12): Unsatisfied forward or external declaration: 'maximo.max'
No puedo resolver este problema.
Esta es mi clase:
unit Unit2;
interface
Uses
SysUtils,classes;
type
maximo=class
private
n1:integer;
n2:integer;
public
procedure max;
end;
implementation
end.
1 Respuesta
Respuesta de atzokaul
1
TE estás olvidando de definir que es lo que hace la función o procedimiento.
Por ejemplo:
unit Unit2;
Interface
Uses
SysUtils,classes;
type
maximo=class
private
n1:integer;
n2:integer;
public
procedure max;
end;
implementation
procedure maximo.max;
begin
//tu código
end;
end.
Por ejemplo:
unit Unit2;
Interface
Uses
SysUtils,classes;
type
maximo=class
private
n1:integer;
n2:integer;
public
procedure max;
end;
implementation
procedure maximo.max;
begin
//tu código
end;
end.
unit Unit2;
interface
Uses
SysUtils,classes;
type
maximo=class
private
n1:integer;
n2:integer;
public
function max(n1,n2:integer):integer;
end;
implementation
function maximo.max(n1,n2:integer):integer;
begin
if n1>n2 then
result:=n1
else
result:=n2;
end.
Como puedo crear el objeto máximo y llamarlo desde otra unit.
Como hago que haga su función.
interface
Uses
SysUtils,classes;
type
maximo=class
private
n1:integer;
n2:integer;
public
function max(n1,n2:integer):integer;
end;
implementation
function maximo.max(n1,n2:integer):integer;
begin
if n1>n2 then
result:=n1
else
result:=n2;
end.
Como puedo crear el objeto máximo y llamarlo desde otra unit.
Como hago que haga su función.
Este ejemplo de un botón en el form1 donde debe poner la cláusula uses unit2
procedure TForm1.Button1Click(Sender: TObject);
var e:maximo;
j:integer;
begin
j:=e.max(3,4)
end;
procedure TForm1.Button1Click(Sender: TObject);
var e:maximo;
j:integer;
begin
j:=e.max(3,4)
end;
