Como se asignan valores directamente a un array dinamico?

[*Caro*]

Hola flystar, una forma de llenar un arreglo dinamico podría ser utilizando la función VarArrayOf:

Código Delphi [-]
 miArray : Array of Integer;
begin
 SetLength(miArray, 3);
 miArray := VarArrayOf([10,20,30,40]);

pero creo que con TButtons no va a funcionar, porque se necesita un Variant.

También puedes llenar tu arreglo de TButtons como te indica Archer.

Saluditos

[flystar]

Ok voy a instentar esa
Gracias

[flystar]

Efectivamente no jala asi por que pide un variant.

Chale...debe existir una forma, ¿Cómo en un parametro si lo acepta?

[Lord Delfos]

Solamente para aclarar.

Los array of algo en un parámetro a función y los array of algo con una variable declarada, no son lo mismo.

El primero es un open array, y el segundo es un arreglo dinámico.

Curiosamente en Delphi se puede construir un open array "al vuelo", pero no un arreglo dinámico... Vaya uno a saber por qué motivo.

[[egostar]]

Empezado por Lord Delfos

Solamente para aclarar.

Los array of algo en un parámetro a función y los array of algo con una variable declarada, no son lo mismo.

El primero es un open array, y el segundo es un arreglo dinámico.

Curiosamente en Delphi se puede construir un open array "al vuelo", pero no un arreglo dinámico... Vaya uno a saber por qué motivo.

Perdón pero no entendí lo que quisiste decir Lord Delfos.

Yo creo que lo que necesita flystar es esto.

Código Delphi [-]

var
  Form1: TForm1;
  AD : array of Tbutton;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
  i: Integer;
begin
  SetLength(AD,3); // defines los elementos que desees.
  for I := 0 to 2 do
  begin
    AD[i] := FindComponent('Button' + inttostr(i+1)) as TButton;
    AD[i].Caption := 'Botón ' + inttostr(i+1);
  end;
end;

end.

Saludos

Edito: Vaya pues no habia leído esto

Lo que necesito saber es la forma de asignar de un solo golpe y directo los valores del array dinamico. Sin for.

NO sirve lo que hice, lo siento

[*Caro*]

Hola egopolice , me alegra verte nuevamente por aquí amiguito .

Saluditos

[flystar]

En fin, parece que no hay manera directa.

Gracias por su apoyo

[Lord Delfos]

Empezado por egostar

Perdón pero no entendí lo que quisiste decir Lord Delfos.

Vamos a ver si logro explicarme bien...


A flystar le llamaba la atención que si yo tengo una función que recibe un "array of Algo" puedo pasarle un arreglo "al vuelo".

Código Delphi [-]

function Algo(Parametros: array of Integer): Integer;
begin
end;

var Esto: Integer;

begin
  Esto:= Algo([1, 2, 3, 4]);
end;

Es decir que yo ahí estoy creando el arreglo [1, 2, 3, 4] directamente. Lo que flystar decía era, ¿porqué no se aplica la misma lógica cuando yo quiero asignarle eso a una variable común? (no parámetro de función).

La explicacion es que cuando un parámetro está declarado en una función como "array of algo", eso es un open array, mientras que si una variable está declarada de la misma manera, eso es un arreglo dinámico. Que parecen lo mismo, pero no son.