variable super general

[[FGarcia]]

Un ejemplo:

Código Delphi [-]
//Este es el esqueleto que genera delphi
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  //AQUI Declara tu variable global del tipo que necesites. p.e.
  varGlobal: integer;
  
implementation
 
{$R *.dfm}
 
end.

Espero te sirva.

[[Delphius]]

Solo quiero recalcar que tampoco es necesario contar cun un form para mantener variables públicas y globales. Basta con indicar declarar una unit con un nombre descriptivo (por falta de imaginación: UGlobales). Entonces cada unit (no nocesariamente correspondiente a algun form) que deba tener acceso a estas variables debe tener incorporado dentro de uses el nombre de UGlobales.

Algo como:

Código Delphi [-]
unit UGlobales;
 
interface
 
uses
// los que hagan falta

type
 // los tipos de datos que sean necesarios...

var
 // variables públicas
 variable1: tipo_dato;
 variable2: tipo_dato;

implementation


end.

La idea del datamodule es buena, si se emplean base de datos...
Si no se requieren de BD, es un desperdicio emplear el Datamodule
Allí, creo, que sería mejor considerar una unidad UGlobales.

Saludos,

[[Héctor Randolph]]

Estoy totalmente de acuerdo con Delphius. De hecho, así están implementadas las famosas variables globales Application y Screen dentro de la unit Forms. Por esa razón, estas variables están siempre disponibles en todos los formularios de nuestros programa.

Código Delphi [-]
Unit Forms;

{ Global objects }

var
  Application: TApplication;
  Screen: TScreen;

Intenta quitar del uses de tu proyecto (*.dpr) la llamada a la unit Forms y verás el resultado

Código Delphi [-]
program Project1;

uses
  //Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Saludos