[resolvido] Onde E Como Faço Declarações Global?

[Livio Neiva]

Onde faço uma variável Global???

E como faço esse tipo devariável?

Declarar variable Lin com o tipo Real e escopo global

[Guest --Jonas --]

Onde faço uma variável Global???

E como faço esse tipo devariável?

Declarar variable Lin com o tipo Real e escopo global

Variáveis Globais

As variáveis abaixo são globais, declaradas da Interface da Unit. Podem ser acessadas por qualquer Unit usuária declarada na clausula Uses EX:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  I: Integer;       // definção de variaveis globais
  Usuario: string;
  A, B, Soma: Double;
  Ok: Boolean;
  Lin : real;
implementation

{$R *.DFM}

uses UCadastro, UCalculo, UQReport;   // units usuárias

end.

[Livio Neiva]

Onde faço uma variável Global???

E como faço esse tipo devariável?

Declarar variable Lin com o tipo Real e escopo global

Variáveis Globais

As variáveis abaixo são globais, declaradas da Interface da Unit. Podem ser acessadas por qualquer Unit usuária declarada na clausula Uses EX:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  I: Integer;       // definção de variaveis globais
  Usuario: string;
  A, B, Soma: Double;
  Ok: Boolean;
  Lin : real;
implementation

{$R *.DFM}

uses UCadastro, UCalculo, UQReport;   // units usuárias

end.

Ótimo, obrigado!!!

Agora o que é um escopo global???

e como faço um???

[Guest --Jonas --]

Não sei se entendi direito se ao que voce se refere como escobo global ( em qualquer lugar do projeto ? ) ... se for usar a variavel em qualquer lugar do projeto basta declarar a variavel no public do form principal, ou definir como global e chamar esta variavel no form que voce quiser pela clausula uses desse form ... exemplo : voce delcarou a clausula Lin : real no form principal que vamos cahamar de Form1 e quer usar essa variavel no seu Form5, basta declarar na uses do Form5 o seguinte: Uses Form1 e em alguma procedure trabalhar com esta variavel ..Exemplo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.DFM}

uses Form1;   // a variavel esta definida no Form1

procedure TForm5.Button1Click(Sender: TObject);
begin
  Form1.Lin := 90.00;   // aqui voce esta usando a variavel definida no Form1, usando o Form5 
end;

end.

[Livio Neiva]

Não sei se entendi direito se ao que voce se refere como escobo global ( em qualquer lugar do projeto ? ) ... se for usar a variavel em qualquer lugar do projeto basta declarar a variavel no public do form principal, ou definir como global e chamar esta variavel no form que voce quiser pela clausula uses desse form ... exemplo : voce delcarou a clausula Lin : real no form principal que vamos cahamar de Form1 e quer usar essa variavel no seu Form5, basta declarar na uses do Form5 o seguinte: Uses Form1 e em alguma procedure trabalhar com esta variavel ..Exemplo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.DFM}

uses Form1;   // a variavel esta definida no Form1

procedure TForm5.Button1Click(Sender: TObject);
begin
  Form1.Lin := 90.00;   // aqui voce esta usando a variavel definida no Form1, usando o Form5 
end;

end.

Ótimo!!!

Entendi agora!!!

Questão Resolvida,

muito Obrigado.