[ecfisa]

Empezado por geolife

...
Se trataría de crear un vector o array que contenga a las variables (a,b,c,d,e,f,g) y luego mediante un bucle recorrerlas desde el inicio al final para asignarles un valor determinado.
...

Hola geolife.

Sin dudas lo que mencionas se soluciona usando un arreglo de punteros a Word, pero el trabajo de asignar a cada posición del arreglo la variable respectiva, se equipara al trabajo de inicializarlas una a una...

Una opción que podría reducir un poco la tarea podría ser:

Código Delphi [-]
procedure InitVar(VecWord: array of PWord; const Values: array of Word);
var
  i: Integer;
begin
  for i := Low(VecWord) to High(VecWord) do
    VecWord[i]^ := Values[i];
end;

Ejemplo de uso:

Código Delphi [-]
var
   a,b,c,d,e,f,g: Word;
begin
  InitVar([@a,@b,@c,@d,@e,@f,@g], [300, 101, 502, 203, 904, 705, 406]);
  ...

Saludos