variables globales

[[maeyanes]]

Para crear una variable global, solo tienes que declararla en la sección interface de la unidad y luego referenciar esta unidad en las otras donde la vayas a usar:

Código Delphi [-]
unit Globales;

interface

uses
  // Lista de unidades

var
  VarGlobal1: Integer;
  VarGlobal2: string;

Para usar una de estas variables:

Código Delphi [-]
unit Form1;

interface

uses
  // Lista de unidades

  // Declaración de tipos y demás

implementation

uses Globales; // con esto puedo usar cualquiera de las variables declaradas en Globales.pas

Ahora, sobre tu duda, yo te recomendaría una función que devuelva True o False si tuvo éxito y como parte de sus parámetros devuelva la secuencia, algo así:

Código Delphi [-]
// Declaración:
function DoSecuencia(var Secuencia: [TipoDeDato]): Boolean;

// Una forma de usarse:
if DoSecuencia(ASecuencia) then
begin
  // Hago aquí lo que quiera con la secuencia creada
end
else
  ShowMessage('Error creando la secuencia')

Saludos...

[[egostar]]

Yo nadamas agregaria a tu código variables ya que pudiera ser que la secuancia dependa de algun dato.

Código Delphi [-]
// Declaración:
function DoSecuencia(var Secuencia:[TipoDeDato]; VarSecuencia:[TipoDeDato]): Boolean;

// Una forma de usarse:
if DoSecuencia(ASecuencia,Variable) then
begin
  // Hago aquí lo que quiera con la secuencia creada
end
else
  ShowMessage('Error creando la secuencia')

Saludos

[[egostar]]

Seoane te me adelantaste pero pensamos en lo mismo,

Saludos

[[maeyanes]]

Claro está que podría depender de algún otro dato, pero solo era un ejemplo sencillo...


Saludos...

[henrygale]

lo hice al reves... introduje con var el booleano en vez de la secuencia pero más o menos es lo mismo.

muchas gracias... ya funciona

[edelphi]

bueno hice todo lo que dices en el post pero aun asi no me funciona, esto es lo ke quiero hacer:

Código Delphi [-]
unit global;

interface

implementation
uses principal;
Var nom,app,apm,calu,carr,sem,tur:string;
end.

y en el form1

Código Delphi [-]
....
implementation
uses global,matriculas, Dmodulo;
....
procedure TForm14.SpeedButton2Click(Sender: TObject);
begin
nom:=DBgrid2.Columns[3].Field.text;
app:=DBgrid2.Columns[1].Field.text;
apm:=DBgrid2.Columns[2].Field.text;
calu:=DBgrid2.Columns[0].Field.text;
carr:=DBgrid1.Columns[1].Field.text;
sem:=DBgrid1.Columns[2].Field.text;
tur:=DBgrid1.Columns[3].Field.text;
Showmessage(calu+' '+nom+' '+app+' '+apm+' '+carr+' '+sem+' '+tur);

y me manda estos errores
[Error] frm_buscar_alumnos.pas(283): Undeclared identifier: 'nom' ...

que hago ayudenme

[[seoane]]

Prueba asi

Código Delphi [-]
unit global;

interface
Var nom,app,apm,calu,carr,sem,tur:string;
implementation
uses principal;

end.

[edelphi]

ok muchas gracias ahora si parece que me va afuncionar jejeje un lapsus en las lineas de codigo