Como Elimina los Componentes de un Contenedor

[ASAPLTDA]

Buenas Tardes Foristas
Con el siguiente codigo en un scrollbox creo en ejecucion los campos pertenecientes a una tabla. Cunado Cambio de Tabla requiero recrear los campos de la nueva tabla previa eliminacion de los campos anteriores. pero no he podidom usarlo. Ajunto el Codigo de creacion de los campos y el internto de eliminarlos .
La creacion de Campos funciona muy bien
Gracias por su colaboracion

  
procedure TFDSPTAB.BitBtn_showFieldsClick(Sender: TObject);
var
 i:Integer;
 s:string;
 campo:TField;
 DBEdit0: TDBEdit;
 Label0: TLabel;
 localOwner: TComponent;
 top:Integer;
begin

// se intenta eliminar los campos los campos creados con anterioridad
 for i:=0 to ScrollBox1.ComponentCount -1 do begin; 
      ScrollBox1.Components[i].free ;
   end;

// crear los campos por la tabla abierta
 for i:=0 to D.DSPTAB.Fields.Count -1 do begin
   S:= D.DSPTAB.fields[i].FieldName;
        DBEdit0 := TDBEdit.Create(nil) ;
        Label0 :=  TLabel.Create(nil) ;
        with Label0 do begin
          Name:= 'Label_' + s;
          Caption :=s + ' ...................................';
          Parent:= ScrollBox1;
          Top:=  (24) +(i*23);
          Left:=7;
        end;
        with  DBEdit0 do begin
          Name :=s;
          DataField :=s;
          //Parent:= Form1;
          Parent:= ScrollBox1;   // Panel_fields;
          Top:=  (Height + 3) +(i*23);
          Left:=160;
          Width :=200;
          DataSource := D.DSPTAB_d ;
        end;
end;

[delphi.com.ar]

Empezado por ASAPLTDA

  
 for i:=0 to ScrollBox1.ComponentCount -1 do begin; 
      ScrollBox1.Components[i].free ;
   end;

Siempre que elimines items de una lista en forma secuencial, debes hacerlo decrementalmente, porque en cuanto elimines el primero la cuenta de items será una unidad menor.

[[seoane]]

Solo por fastidiar

También podemos ir hacia adelante:

Código Delphi [-]
  while ScrollBox1.ComponentCount  > 0 do 
      ScrollBox1.Components[0].free ;

[delphi.com.ar]

Empezado por seoane

Solo por fastidiar

También podemos ir hacia adelante:

Código Delphi [-]
  while ScrollBox1.ComponentCount  > 0 do 
      ScrollBox1.Components[0].free ;

Se que es solo para fastidiar , pero también es bueno aclarar que el utilizar un for decreciente es un poquito mas "económico" que este código, ya que se consulta solo una vez en todo el ciclo la cantidad de ítems de la lista, por el contrario en este caso, se evalúa para cada iteración.

Saludos!

[ASAPLTDA]

Hola Amigos,
Muchas Gracias por responder, he leido las 2 alternativas que proponen + la consideracion de rendimiento.

Aplique la siguiente:

while ScrollBox1.ComponentCount  > 0 do 
      ScrollBox1.Components[0].free ;

y no funciono, Pero revisando encontre algo simpatico el valor de ScrollBox1.ComponentCount es cero (0) aunque haalan varios componentes en EL , quisiera que le echaran una mirada al codigo donde creo los componentes dbedit, para confirmar si la forma que aplico es la correcta. Disculpen que pida esa revision pero le he trabajdo y no encuenntro la solucion. Gracias
Utilizo turbo delphi 2006 gratuito

[ASAPLTDA]

Hola Amigos,

La propiedad de .ComponentCount es actualizada cuando un contenedor es propietario de un componente y no depende de la propiedad Parent

Para poder utilizar la instruccion ScrollBox1.ComponentCount , los componentes creados en ejecucion deben ser creador con un propietario
Ejemplo0 RunTimeButton := TDBEdit.Create(nil) ; // OWNER ?? APPLICATION
Ejemplo1 RunTimeButton := TButton.Create(Self); // OWNER LA FORMA
Ejemplo1 RunTimeButton := TButton.Create(ScrollBox1); // OWNER SCROLLBOX1

Muchas Gracias por su Apoyo

Empezado por ASAPLTDA

Hola Amigos,
Muchas Gracias por responder, he leido las 2 alternativas que proponen + la consideracion de rendimiento.

Aplique la siguiente:

while ScrollBox1.ComponentCount  > 0 do 
      ScrollBox1.Components[0].free ;

y no funciono, Pero revisando encontre algo simpatico el valor de ScrollBox1.ComponentCount es cero (0) aunque haalan varios componentes en EL , quisiera que le echaran una mirada al codigo donde creo los componentes dbedit, para confirmar si la forma que aplico es la correcta. Disculpen que pida esa revision pero le he trabajdo y no encuenntro la solucion. Gracias
Utilizo turbo delphi 2006 gratuito

[[Lepe]]

Empezado por ASAPLTDA

y no funciono, Pero revisando encontre algo simpatico el valor de ScrollBox1.ComponentCount es cero (0) aunque haalan varios componentes en EL

Ahora que lo dices... igual es la propiedad scrollbox1.ControlsCount y scrollbox.Controls[0].Free

Saludos

[xander]

Empezado por delphi.com.ar

Se que es solo para fastidiar , pero también es bueno aclarar que el utilizar un for decreciente es un poquito mas "económico" que este código, ya que se consulta solo una vez en todo el ciclo la cantidad de ítems de la lista, por el contrario en este caso, se evalúa para cada iteración.

Pues eso no es del todo cierto... si lo implementas como se había mencionado antes:

Código Delphi [-]
  for i:=0 to ScrollBox1.ComponentCount -1 do ...

claro que se evalua en cada iteración... puedes probar poniendo alguna función en el for y llevando un log de las llamadas a la función y verás que en cada iteración del for se manda a evaluar la expresión de terminación.

Otra cosa sería si hicieras:

Código Delphi [-]
  C := ScrollBox1.ComponentCount -1;
  for i:=0 to C do ...

Entonces si solo se evalua una sola vez la cuenta de los componentes.

[roman]

La condición de terminación claro que se evalúa en cada ciclo, pero delphi.com.ar se refiere a la cantidad de items.

Si ponemos:

Código Delphi [-]
for I := ScrollBox.ControlCount -1 downto 0 do
  ScrollBox.Controls[i].Free;

se toma el valor de ScrollBox.ControlCount al comienzo del ciclo y nada más. De la forma que propone seoane:

Código Delphi [-]
while ScrollBox.ControlCount  > 0 do 
  ScrollBox.Components[0].free ;

el valor de ControlCount debe tomarse cada vez.

// Saludos