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:


unit Globales;

interface

uses
// Lista de unidades

var
VarGlobal1: Integer;
VarGlobal2: string;


Para usar una de estas variables:


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í:


// 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'

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.

// 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, :D:D

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:

unit global;

interface

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

y en el form1

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

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