Como se asignan valores directamente a un array dinamico?

[Casimiro Noteví]

Algo así:

miArray := ('Juan', 'Pedro', 'Miguel');

[flystar]

Buenos días:

Nop asi no jala...

[Archer]

Creas los botones dinamicamente (por codigo, por ejemplo en "OnCreate" del form en cuestion) y luego un bucle trivial:

Código Delphi [-]
for i := 0 to max do
  AD[i] := boton[i];

Saludos

[flystar]

Los botones ya existen, no requiero crearlos.

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

Quizas exista la forma.

Lo curioso es que si mando un parametro asi en una funcion

funcionasigna ([boton1,boton2]);

y luego en la funcion los asigno a un array dinamico si los acepta..
es curioso no?

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