Hola gente, es mi primera vez en este foro y nose bien donde ira este tema, si este no es el lugar espero que algun admin me disculpe.
el tema es asi, tengo un programa en delphi con 2 unit, la primera tiene un boton y la otra una clase, pongo los dos codigos:
Código Delphi
[-]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Unit2;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
API : ClassAPI;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
API.Setear();
end;
end.
Código Delphi
[-]unit Unit2;
interface
type
ClassAPI = Class
public
Variable : Integer;
procedure Setear();
End;
implementation
Procedure ClassAPI.Setear();
begin
Variable := 6;
end;
end.
cuando apreto el boton me salta error de violacion de acceso a la clase, que esta pasando? agradezco cualquie ayuda