Variable en Atributo [Edit(Variable).Text]

[Pedro-Juan]

Entendido Martin

Pero como dices:

Empezado por martini002

es que quiero almacenar en 1000 Edit's un valor en especial
digamos que el 0, Entonces la pregunta seria,
se puede colocar una variable en un atributo?

No lo entendía.

Un saludo.

[martini002]

Hola Caral,
Tenia dias sin sentarme a programar esto
porque surgieron un par de cosas
pero he vuelto!

sabes que el FindComponent no me funciona correctamente
realmente quiero usar esa funcion para lo siguiente:

Código Delphi [-]
procedure ActualizarCartasMesa();
var
  I:Integer;
  Componente:TComponent;
begin
  For I:=1 to 10 do
    Begin
      Componente:=FindComponent('CartaMesa' + IntToStr(I));
      TImage(Componente).Picture.LoadFromFile(Getcurrentdir()+'\Imagenes\Cartas\'+IntToStr(VCartasMesa[i])+'.png');
    End
end;

pero me arroja un error:
"undeclared identifier FindComponent..."

agregue

Uses
System

pero sigue sin funcionar, que crees que esta pasando con eso?
gracias

[ecfisa]

Hola martini002.


El método FindComponent no puede ser llamado igual que una función común, como todo método está ligado a un objeto.

Por otro lado, primero tendrías que buscar el componente y luego, si existe, realizar las acciones. Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
  Componente:TComponent;
begin
  for i:= 1 to 10 do
  begin
    Componente:= FindComponent('CartaMesa' + IntToStr(i)); // Aquí es:  Self.FindComponent (Self = Form1)
    if Componente <> nil then  // ¿ Existe el componente ?
      //...
  end
...

Saludos.

[roman]

Realmente, debería prohibirse el uso de FindComponent .

Este método lo que hace es recorrer todos los componentes del formulario hasta encontrar el que tenga el nombre dado. Si tienes 10 objetos a buscar, entonces recorres 10 veces todos los componentes, y no digamos si tienes mil. Para eso, mejor los recorres una sóla vez:

Código Delphi [-]
for I := 0 to ComponentCount - 1 do
begin
  if SameText(Components[i].Name, 'CartaMesa' + IntToStr(I)) then
    TImage(Componente).Picture.LoadFromFile(...);
end;

Aún así, esto debería usarse sólo para algo ocasional. Si, por ejemplo, estás diseñando un juego de cartas, es de suponer que vas a tener que referirte a los componentes TImage que las representan múltiples veces. Entonces es mejor declarar un arreglo de objetos TImage:

Código Delphi [-]
Cartas: array[1..10] of TImage;

e inicializarlos, por ejemplo, en el constructor del formulario:

Código Delphi [-]
Cartas[1] := CartaMesa1;
Cartas[2] := CartaMesa2;
...
Cartas[10] := CartaMesa10;

Es una larga asignación, pero en el resto de la aplicación puedes ya usar las cartas directamente:

Código Delphi [-]
for I := 1 to 10 do
begin
  Carta[i].Picture.LoadFromFile(...);
end;

Incluso, si la asignación inicial es demasiado larga, quizá podrías colocar todas las cartas en un contenedor como un TPanel e inicializar así:

Código Delphi [-]
for I := 0 to Panel.ControlCount - 1 do
  TImage(Panel.Control[i]).LoadFromFile(...);

// Saludos