Funciones para novatos...

[Neftali [Germán.Estévez]]

Empezado por Xianto

...En este ejemplo la clase es un TForm) lo que quiero es definir mi clase con alguna funcion y variables Publicas o Globales para ver de todos lados

Se pueden definir métodos y propiedades de la clase en las partes public y published (en realidad la parte published sería para eventos y propiedades que puedan aparecer en el explorador de objetos -en caso de clases que lo utilicen-) de la clase (procA); Luego a parte si tienes una función que quieres definir en esa Unit que es global y que no pertenece a esa clase puedes definirla fuera de la clase (procC); En tu ejemplo:

Código Delphi [-]
type
TFormA = class(TForm)
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
// método
procedure procA();
end;
var
Pepa: TPepa;
// Defininición externa a la calse
procedure procC();
 
implementation
{$R *.dfm}
procedure TPepa.FormActivate(Sender: TObject);
begin
a := b;
end;
end.

Para utilizar el método published harías algo similar a ésto:

Código Delphi [-]
 
uses
UnitForm2;
...
var
F1:TFormA;
begin
F1 := TFormA.Create(Application);
F1.procA;
...
 
// Para utlizar el método que no pertenece a la clase basta con que
// la unit esté añadida al uses.
procC();
...