Problema con Asignacion a un Objeto.

[BEPAI]

Por favor podrías ponerlo completo, yo lo he modificado en el siguiente sentido:

Código Delphi [-]
 
procedure TPANEL1.BitBtn1Click(Sender: TObject);
var a,resto:smallint;
cad:string;
begin
 
for a:=1 to 150 do begin resto:= a mod 2;
if resto=0 then begin
Findcomponent('Updown'+inttostr(a)).Position:=999;
end
else begin
Findcomponent('Updown'+inttostr(a)).Position:=0;
end;
 
end;
end;

.........y no funciona. Estoy en pañales en esto.
Saludos.

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

Para hacerlo bien sería algo así:

Código Delphi [-]
var
  comp:TComponent;
begin
  ...
  // Buscar el componente...
  comp := FindComponent('Updown'+inttostr(a));
  // Encontrado?
  if Assigned(com) then begin
    // Comprobar que es del tipo correcto?
    if (comp is TUpDown) then begin
      TUpDown(comp).Position := 999;
    end;
  end;
  ...

De forma similar para el otro.
Una vez que has encontrado el componente (que se devuelve como tipo generico) hay que hacer el CAST, para poder acceder a el con el tipo correcto (en este caso TUpDown).

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