Borrar Panel me sale Access Violation

[LiAnTe-]

Hola a todos,

tengo un problema bastante gordo, tengo una aplicacion que creo botones en tiempo de ejecucion y al boton le asigno una accion a cada uno de ellos hasta aqui bien, pero cuando tengo que borrar los botones para insertar los nuevo de tanto en tanto me da un Acess Violation siempre es diferente por norma...

pero he estado buscando y mirando y si le quite este codigo no me da un access violation pero claro despues no me borra los botones...

Procedure TGesVentasBar.BorrarPanelPersonal;
var
i: Integer;
begin
for i:= ComponentCount -1 downto 0 do
begin
if (Components[i].ClassType = TSpeedButton)and
(TSpeedButton(Components[i]).Parent = Personal) then
Components[i].Free;
end;
end;

que solucion puedo hacer, para evitar que me salte cada 2 por 3 el access violation y pueda usar este codigo para borrar los iconos antes de volverlos a crear...

SAludos.

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

Tal vez deberías "debuggar" ese código paso a paso para saber exactamente dónde salta.
Ayudaría también, por ejemplo, si subieras un pequeño proyecto con el código de generar los botones, junto con este de destruirlos.

En cuanto al código que colocas, yo optaria (para asegurarme) de dividir la condición del IF en dos, y utilizar:

Código Delphi [-]
 if Assigned(...)

Para comprobar que las diferentes propiedades están asignadas.

Código Delphi [-]
Procedure TGesVentasBar.BorrarPanelPersonal;
var
  i: Integer;
begin
  for i:= ComponentCount -1 downto 0 do begin
    if (Components[i] is TSpeedButton) then begin
      if Assigned(TSpeedButton(Components[i]).Parent) then begin
        if Assigned(TSpeedButton(Components[i]).Parent = Personal) then begin
          Components[i].Free;
        end;
      end;
    end;
  end;
end;

[ecfisa]

Hola LiAnTe-

Hola.

Si los TSpeedButton están dentro de un TPanel llamado 'Personal' no es necesario recorrer todos los componentes del form
para seleccionar aquellos componentes cuyo Parent sea 'Personal'. Podés buscar directamente dentro de él.

Código Delphi [-]
procedure TForm1.BorrarPersonal;
var
  i: Integer;
begin
  for i:= Personal.ComponentCount-1 downto 0 do
   if Personal.Components[i].ClassType = TSpeedButton then
     Personal.Components[i].Free;
end;

Si los TSpeedButtons tienen como Owner y Parent a 'Personal', no tiene por que arrojar ningun error.


Saludos.

[LiAnTe-]

Hola ecfisa,

el problema que me da con tu codigo cuando lo coloco es que no me borra nada de nada...

Hola Neftali,

el problema que me da con tu codigo es que cuando lo pongo me dice en el ultimo assignen propiedad no validad tipos diferentes...

os pego la creacion de los boton asi, igual podais tener mas ideas pero me estoy volviendo loco intentando solventar el tema del violation y viene por el borrado de los componentes y creacion de nuevo...

Código Delphi [-]
Procedure TGesVentasBar.CrearBotonesPersonal;
var
    QPersonal               : TIBSQL;
    vPersonalCodigo         : Integer;
    vPersonalNombre         : String;
    vBotonAltoPersonal      : Integer;
    vBotonAnchoPersonal     : Integer;
    vIncioBoton             : Integer;
    vBotonPersonal          : TSpeedButton;

Begin
  vBotonAltoPersonal      := 69;
  vBotonAnchoPersonal     := 108;
  vIncioBoton             := 1;

  Btt_AnteriorRegistroPersonal.Enabled := False;
  Btt_SiguienteRegistroPersonal.Enabled := False;

  QPersonal := TibSql.create(NIL);
  QPersonal.Database := BDades.IBDatabase1;
   Try
    QPersonal.SQL.Text := 'Select * from Personal where tienda = ' + '''' +BDades.TConfigTIENDA.Text + '''';
    QPersonal.ExecQuery;

    While QPersonal.Eof = False do
    Begin
      vPersonalNombre := QPersonal.FieldByName('NOMBRE').AsString;
      vPersonalCodigo := QPersonal.FieldByName('CODIGO').AsInteger;

      vBotonPersonal := TSpeedButton.create(self);
      vBotonPersonal.Parent  := Personal;
      vBotonPersonal.Tag     := vPersonalCodigo;
      vBotonPersonal.Caption := vPersonalNombre;
      vBotonPersonal.Height  := vBotonAltoPersonal;
      vBotonPersonal.Width   := vBotonAnchoPersonal;
      vBotonPersonal.Left    := 1;//vBotonAncho + ParentVarCountPersonal.Left;
      vBotonPersonal.Top     := vIncioBoton;
      vBotonPersonal.Enabled := True;
      vBotonPersonal.visible := True;
      vBotonPersonal.Hint    := vPersonalNombre;
      vBotonPersonal.OnClick := vPersonalBotonOnClick;
      vBotonPersonal.Show;

      QPersonal.Next;
      vIncioBoton := vIncioBoton + vBotonAltoPersonal;
    end;
   BDades.IBTransaction1.CommitRetaining;
   finally
    QPersonal.Close;
    FreeandNil(QPersonal);
   end;
end;

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

Empezado por LiAnTe-

el problema que me da con tu codigo es que cuando lo pongo me dice en el ultimo assignen propiedad no validad tipos diferentes...

Ok. Con el código es más sencillo ver el problema.

Cuando creas los botones añade como Owner el contenedor "Personal".

Código Delphi [-]
   ...
   vBotonPersonal := TSpeedButton.create(Personal);
   ...

Y luego para liberarlos puedes usar un código como este

Código Delphi [-]
procedure TGesVentasBar.Button1Click(Sender: TObject);
var
  i:Integer;
  btn:TSpeedButton;
begin
  // recorrer los componentes que hay en "personal"
  for i := (Personal.ComponentCount - 1) downto 0 do begin
    // es un SpeedButton?
    if (Personal.Components[i] is TSpeedButton) then begin
      // Apuntador al componente
      btn := TSpeedButton(Personal.Components[i]);
      // liberar
      btn.Free;
    end;
  end;
end;

[LiAnTe-]

Bien ahora me borra y me crea, pero me sigue dando el acces violation...

te pego el ultimo codigo....

Lo que hace el programa es crear un menu de personas al inicio cuando pulsas en una persona pues borra las personas y pone las opciones de la persona pulsada...

pero al destruir y dibujar de nuevo me va saliendo un Access Violation... y ando muy loco buscando el problema...

Ya agradecerte la ayuda que me estas prestando...

este es el ultimo codigo que se utiliza.... es como un bucle pulso se crea formulario crea personal, pulsas sobre el y destruye botones de personal y crea los nuevo botones de opciones... retrocedes y creas de nuevo las opciones de personal. ( gente ).

Código Delphi [-]
procedure TGesVentasBar.vPersonalBotonOnClick(Sender: TObject);
var
  vVentasOpcionesCodigo : Integer;
  vVentasOpcionesNombre : String;
  vTop                  : Integer;
  vInicio               : Integer;
  QOpcionesPersonal     : TIBSQL;
  vBotonPersonal        : TSpeedButton;

Begin
  vendedor.text := inttostr(Tbutton(sender).tag);
  VendedorExit;
  BorrarPanelPersonal;
  vTop := 1;
  vInicio := 1;
  Btt_AnteriorRegistroPersonal.Enabled := True;
  Btt_SiguienteRegistroPersonal.Enabled := False;

  QOpcionesPersonal := TibSql.create(NIL);
  QOpcionesPersonal.Database := BDades.IBDatabase1;
   Try
    QOpcionesPersonal.SQL.Text := 'Select * from VentasOpciones where tienda = ' + '''' + BDades.TConfigTIENDA.Text + '''';
    QOpcionesPersonal.ExecQuery;

    While QOpcionesPersonal.Eof = False do
     Begin
      vVentasOpcionesCodigo := QOpcionesPersonal.FieldByName('CODIGO').AsInteger;
      vVentasOpcionesNombre := QOpcionesPersonal.FieldByName('NOMBRE').AsString;

      vBotonPersonal := TSpeedButton.create(Personal);
      vBotonPersonal.Parent  := Personal;
      vBotonPersonal.Caption := vVentasOpcionesNombre;
      vBotonPersonal.Height  := 69;
      vBotonPersonal.Width   := 108;
      vBotonPersonal.Left    := vInicio;     // Inicio
      vBotonPersonal.Top     := vTop;     // Altura
      vBotonPersonal.Enabled := True;
      vBotonPersonal.visible := True;
      vBotonPersonal.Tag     := vVentasOpcionesCodigo;
      vBotonPersonal.OnClick := vOpcionesVentasBotonOnClick;
      vBotonPersonal.Show;

      QOpcionesPersonal.Next;
      vTop := vTop + 70;
    end;
   BDades.IBTransaction1.CommitRetaining;
   finally
    QOpcionesPersonal.Close;
    FreeandNil(QOpcionesPersonal);
   end;
end;

no se si sera importante pero el panel de personal esta encima de un componente TPageControl y el panel persona es un TTabSheet.

Saludos.

[Estifmauin]

Hola LiAnTe-
Verás, acabo de compilar el código que dejaste en el hilo. Lo he hecho con Delphi 2010, y con la "sensibilidad" de excepciones al máximo. Y funciona perfecto! El código es correcto.

Creo que si sigues teniendo este problema, la cosa puede venir por alguna falla en tu Delphi: alguna dll dañada, o algún conflicto de versiones.
A mi me pasó algo parecido hace tiempo, y era porque había desinstalado Delphi 2009 y al utilizar Delphi 2007 había alguna clave de registro que se había quedado huérfana.

Si necesitas más ayuda, mándame un privado.