Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Acceder modificar propiedades publicas de una clase desde otra unidad (https://www.clubdelphi.com/foros/showthread.php?t=83866)

nsd 08-08-2013 03:10:16

Acceder modificar propiedades publicas de una clase desde otra unidad
 
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
    { Private declarations }
  public
    { Public declarations }
  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

ecfisa 08-08-2013 04:20:48

Hola nsd, bienvenido a Club Delphi :)

El error se produce por que estas usando una instancia de la clase (objeto) sin haberla creado previamente.

De este modo no tendrás problemas:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  API := ClassAPI.Create;  // Crear la instancia
  API.Setear();            // Usarla
  ...
end;

Saludos. :)


La franja horaria es GMT +2. Ahora son las 10:57:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi