variables globales

[henrygale]

perdonen si la pregunta es demasiado simplona pero...

¿a alguien se le ocurre una manera de que una función devuelva el contenido de dos variables al programa principal?

a mi lo único que se me ocurre es usando para uno de esos valores una variable global. ¿como se usan variables globales en borland delphi?

el caso es que tengo una función que devuelve una secuencia, pero tambien necesito devolver si se ha podido crear esta de manera correcta o no.

[[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...

[[seoane]]

Para estos casos esta 'var'

Código Delphi [-]
function Ejemplo(Parametro: Integer; var Resultado: string): boolean;
begin
  Resultado:= '';
  while Parametro > 0 then
  begin
    Resultado:= Resultado + 'A';
    dec(Parametro);
  end;
  if Length(Resultado) > 0 then
    Result:= TRUE
  else
    Result:= FALSE;
end;

// Por ejemplo
var
  Str: string;
begin
  if Ejemplo(5,Str) then
    ShowMessage(Str);
end;

[[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