Borrar Panel me sale Access Violation

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

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

Pues a mi me funciona perfectamente.
He hecho un pequeño ejemplo sacando los datos de un TClientDataset. Revísalo y compara los procedimientos con los que tienes.

Subido al FTP del club.

[LiAnTe-]

Empezado por Neftali

Pues a mi me funciona perfectamente.
He hecho un pequeño ejemplo sacando los datos de un TClientDataset. Revísalo y compara los procedimientos con los que tienes.

Subido al FTP del club.

Me pongo a ello gracias.