4 replies to this topic

[JoAnCa]

Hola a todos
Pues eso, como se podria en delphi asignar un valor a varias variables a  la vez
algo como esto

a=b=c=d=0

Se me ocurre esto porque se me puso el vago alto, y tengo que inicializar varias variables, y para no  tener que escribir varias lineas, pensaba si podia hacer todo en una  sola

[Rolphy Reyes]

Saludos.

En Delphi 7, lo que me permitió hacer fue esto:

delphi

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Hola (a: Integer = 0; b: Integer = 0);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
{ TForm1 }
 
procedure TForm1.Hola(a, b: Integer);
begin
 
end;

No tengo otra versión a mano, pero lo que pides no lo soporta.
Incluso estas sentencias fallan:

delphi

procedure TForm1.FormCreate(Sender: TObject);
var
  x, y, z : Integer = 0;
begin
 
end;
Mensaje de Error: [b]Cannot initialize local variables.[/b]
 
//Esta también falla
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Hola (a, b: Integer = 0);
  end;

Así que te tocara inicializar cada variable independiente.

[escafandra]

Ejmm...

C/C++ si permite realizar esas asignaciones o inicializaciones múltiples    .

cpp

a=b=c=d=0;

(Algo bueno tenia que tener...  )


Saludos.

[egostar]

Ejmm...

C/C++ si permite realizar esas asignaciones o inicializaciones múltiples    .

cpp

a=b=c=d=0;

(Algo bueno tenia que tener...  )


Saludos.

Y otras cosas mas amigo, solo que sigo prefiriendo Delphi

Salud OS

[Delphius]

Hola,

Siempre y cuando la variables sean de un mismo tipo, se podría elaborar un pequeño giro de tuerca al asunto:

delphi

const
MAXVARS = 5; // cantidad máxima de variables
 
VAR1 = 0
VAR2 = 1
...
VAR5 = 4
// constantes para identificar a cada variable. Por si gustan
 
type
TVars = array of integer; // arreglo de variables
 
procedure InitializeVars(var VarList: TVars; Value: integer);
var i: integer;
begin
  SetLength(VarList, MAXVARS);
  for i := Low(VarList) to High(VarList) do
    VarList := Value; 
end;

Un ejemplo de uso:

delphi

Initialize(Lista,123);
Lista[VAR3] := Lista[VAR5] * 15;

Saludos,