Borrar lo que esta dentro de un scrollbox

[yusnerqui]

Hola, por qué no usar las propiedades controls y controlcount del propio TScrollBox, de esta forma solo recorremos los elementos que nos interesa (controles del ScrollBox1) y simplemente los destruimos.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
   i : integer;
begin
  for i := ScrollBox1.ControlCount -1  downto 0 do
      ScrollBox1.Controls[i].Free;
end;

Bueno pues ahora tienes dos vías

Saludos Yusnerqui

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

Empezado por yusnerqui

...por qué no usar las propiedades controls y controlcount del propio TScrollBox?

Efectívamente, porqué no usarlas... (se me pasó...)

Empezado por yusnerqui

...Bueno pues ahora tienes dos vías...

A usar preferiblemente la de yusnerqui, ya que es más clara y eficiente.

[sierraja]

ok Probaré apenas llegue a casa. Muchas gracias.....

[sierraja]

Una pregunta: ¿Por qué se hace el recorrido al revés?. Gracias....

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

Empezado por sierraja

¿Por qué se hace el recorrido al revés?

Como los vas borrando, si empiezas por el principio te dará error (antes o después).
Por ejempo, si la lista tiene 20 elementos, al eliminar el 0, el que antes era el 1 pasa al 0 y al intentar eliminar el 1, realmente has borrado el dos.

Espero haberme explicado.

[roman]

Empezado por Neftali

Como los vas borrando, si empiezas por el principio te dará error (antes o después).

¡Ahh! Entonces podemos ahorrarnos una variable:

Código Delphi [-]
while ScrollBox1.ControlCount > 0 do
  ScrollBox1.Controls[0].Free;

// Saludos

[vtdeleon]

Saludos

Empezado por roman

¡Ahh! Entonces podemos ahorrarnos una variable:

Código Delphi [-]
while ScrollBox1.ControlCount > 0 do
  ScrollBox1.Controls[0].Free;

Wow Muy acertada y eficiente tu técnica