Problema con Asignacion a un Objeto.

[BEPAI]

Encontré esto:

Código Delphi [-]
 
{The following example creates 20 edit boxes, using FindComponent with the edit box name to access each newly created edit box.}
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;

Lo de self no lo entiendo, pero bueno, de todas formas muy agradecido.

[Neftali [Germán.Estévez]]

Código Delphi [-]
{The following example creates 20 edit boxes, using FindComponent with the edit box name to access each newly created edit box.}
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;

Aquí lo que está haciendo es crear 20 componentes y luego acceder a ellos utilizando FindComponent, cosa bastante tonta por cierto, ya que FindComponent no es muy eficiente y sólo se debería utilizar cuando no exista otro remedio, como en tu caso, pero no aquí que ya están disponibles los 20 componentes (por lo tanto no tiene sentido buscarlos con este método).

Sólo le encuentro sentido como muestra de utilización, pero creo que el código no es muy acertado, no porque sea incorrecto, sino porque muestra una programación muy ineficiente.

El Self, se refiere al "objeto actual"; Si te fijas en la definición de los procedimientos lo verás claramente:

Código Delphi [-]
// En este contexto el Self es el objeto de la clase TForm1 que está
// ejecutando ese código
procedure TForm1.Button1Click(Sender: TObject);
...

Código Delphi [-]
// Si el código estuviera aquí el Self sería el objeto de la clase TPanel1 que 
// está ejecutando ese código
procedure TPANEL1.BitBtn1Click(Sender: TObject);
...

[BEPAI]

Muy agradecido, Neftalí.
Mi nivel es muy bajo y necesitaría hacer un curso para coger un poco de nivel, ya que tengo que hacer unas aplicaciones personales, sin más remedio.
Yo vivo en Segovia y aquí no hay nada donde den este lenguaje.Me tendría que desplazar a Madrid y hacerlo en los fines de semana. Quizás me podríais indicar algo interesante en esta ciudad.
(Perdón, porque sé que es un tema distinto)

Un saludo.

[[Lepe]]

la cara oculta de delphi 4 es un pdf famosísimo, gratuito y ameno (al menos la primera vez que se lee ). En google lo encuentras sin problemas.

Saludos

[BEPAI]

Aquí lo que está haciendo es crear 20 componentes y luego acceder a ellos utilizando FindComponent, cosa bastante tonta por cierto, ya que FindComponent no es muy eficiente y sólo se debería utilizar cuando no exista otro remedio, como en tu caso, pero no aquí que ya están disponibles los 20 componentes (por lo tanto no tiene sentido buscarlos con este método).

Sólo le encuentro sentido como muestra de utilización, pero creo que el código no es muy acertado, no porque sea incorrecto, sino porque muestra una programación muy ineficiente.

Neftalí, lo que intento es colocar una matriz[1..15,1..10], en la que tengo que modificar datos cuando se ejecute el programa.¿Podrías darme una idea de como hacerlo más fácil y eficiente?Muchas gracias.

Lepe, gracias, lo he leído varias veces, pero creo que lo que se necesita es práctica para adquirir soltura.

Un saludo.

[[Lepe]]

Para obtener una respuesta acertada, sería mejor empezar desde el principio.

- ¿como creas los 150 paneles?
- ¿como los destruyes? o si no haces nada, pues lo dices.
- El famoso array [1..15, 1..10] of ?????? ¿de qué son?
- ¿como creas los botones y updown?

Todo eso es necesario saberlo, (si es con código mucho mejor).

¿Se podría cambiar la dinámica o no? Me explico: Quizás fuera mejor hacer un Frame, un panel, en definitiva, un contenedor de componentes. En tiempo de diseño, colocas los botones, el updown y todo lo que necesites.

En ejecución, solo tendrías que crear instancias de ese panel o TFrame. Como es un contenedor de objetos, se simplificaría el acceso a sus botones y a todo lo que contenga.

Saludos

[BEPAI]

- ¿como creas los 150 paneles?

A puro güebo. Pincho un panel y lo coloco en el Form1. Pincho un Updown y lo inserto dentro del panel que he colocado. Selecciono los dos, Ctrl-C(copiar), Ctrl-V(pegar), y así hasta los 150.

- ¿como los destruyes? o si no haces nada, pues lo dices.

Con lo que me ha costado organizarlos !!!!

- El famoso array [1..15, 1..10] of ?????? ¿de qué son?

shortint.(enteros de los de antes)

- ¿como creas los botones y updown?

Creo que ya te he respondido, pero no te rías, que va en serio.

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

¿Se podría cambiar la dinámica o no? Me explico: Quizás fuera mejor hacer un Frame, un panel, en definitiva, un contenedor de componentes. En tiempo de diseño, colocas los botones, el updown y todo lo que necesites.

En ejecución, solo tendrías que crear instancias de ese panel o TFrame. Como es un contenedor de objetos, se simplificaría el acceso a sus botones y a todo lo que contenga.

Todo esto me suena a chino, te lo juro. Lo del Frame, colocar los componentes,.............., nunca he hecho nada de esto.

Estoy más pegao que yo que sé.

Un saludo.