45 respuestas en este tema

[enecumene]

Pues eso, ¿cual sería la forma correcta de liberar los objectos agregados  a un item de un combobox?, he probado varias formas y todas marcan error al intentar liberarlas, lo que intento hacer es resetear el combobox, dejo los siguientes códigos:
 
Aquí agrego los items:

delphi

Type
  TPlayer = class(TObject)
    PId: Integer;
    PRating: Integer;
  end;
 
Player := TPlayer.create;
Player.PId := 1;
Player.PRating := 1400; 
 
ComboBox1.Items.AddObject('Fernando',Player);

Aquí trato de limpiar el combobox:

delphi

TPlayer(ComboBox1.Items.Objects[0]).Free;
ComboBox1.Items.Delete(0);

También intenté simplemente:

delphi

ComboBox1.Items.Objects[0].Free;
ComboBox1.Items.Delete(0);

Por ültimo:

delphi

ComboBox1.Items.Clear;

Todos me Marcan error.
 
Los códigos anteriores es un ejemplo con un sólo item, los combos tienen más de 20.
 
Saludos.

[enecumene]

El error marca en la siguiente linea:

 

function TCustomListBox.TListBoxStrings.GetObject(Index: Integer): TObject;
begin
  Result := FListBox.ListItems[Index].Data;
end;

 

 

Tengo un ListBox en el mismo formulario, tengo un tabcontrol con dos tabs en una está el ListBox y el otro donde están los combos, si los combos no los rellenos no hay problema, pero si los rellenos y paso al tab donde esta el listbox y en el proceso se limpia los combos pues bang!. no sé porqué afecta el listbox.

[Agustin Ortu]

Esto es en Firemonkey o en Vcl?

[Agustin Ortu]

Voy a ir investigando paso a paso

 

La primer prueba mas basica que hice, y no me dio error fue esta:

delphi

procedure TForm2.FormCreate(Sender: TObject);
begin
  ReportMemoryLeaksOnShutdown := True;
end;
 
procedure TForm2.btnAddClick(Sender: TObject);
var
  Player: TPlayer;
begin
  Player := TPlayer.create;
  Player.PId := 1;
  Player.PRating := 1400;
  ComboBox1.Items.AddObject('Fernando', Player);
end;
 
procedure TForm2.btnClearClick(Sender: TObject);
begin
  ComboBox1.Items.Clear;
end;

Pero esto tiene fugas de memoria, ya que los objetos TPlayer no son liberados

 

Lo correcto seria, quien crea al objeto TPlayer tiene la responsabilidad de liberarlo, esto lo podes almacenar en alguna lista o arreglo y liberarlos en otro momento

 

Otra solucion si queres que el ComboBox haga todo es con un ayudante. Yo no te recomiendo esto, no permitas nunca que un control visual se vuelva tu estructura de datos, pero ahi va:

delphi

type
  TStringsHelper = class helper for TStrings
  public
    procedure ClearAll;
  end;
 
implementation
 
procedure TStringsHelper.ClearAll;
var
  I: Integer;
  Objs: TArray<TObject>;
begin
  // obtener todos los objetos almacenados en el TString
  Objs := ToObjectArray;
  // invocar a Free en cada uno
  for I := System.High(Objs) downto System.Low(Objs) do 
    Objs[I].Free;
 
  // invocar al metodo Clear de la instancia TStrings
  Clear;
end;

El orden de los metodos es importante: si primero invocas a Clear el llamado a ToObjectArray devuelve un arreglo vacio

[Agustin Ortu]

Tengo un ListBox en el mismo formulario, tengo un tabcontrol con dos tabs en una está el ListBox y el otro donde están los combos, si los combos no los rellenos no hay problema, pero si los rellenos y paso al tab donde esta el listbox y en el proceso se limpia los combos pues bang!. no sé porqué afecta el listbox.

 

No creo que el ListBox o el TabControl tengan la culpa, los he agregado y no pasa nada. El TabControl en realidad queda fuera de la ecuacion.

 

Si me interesa que haces con el ListBox y con todos los combos: comparten referencias al mismo TPlayer? comparten referencias al mismo objeto TStrings? Estas copiando los TStrings entre los distintos controles? Como los copias? 

 

A mi me parece que estas liberando de memoria mas de una vez el mismo TPlayer

[enecumene]

Pues el lisbox no tiene ninguna referencia a TPlayer, o sea, no tiene relación aguna con los combobox, ahora, en realidad son dos combos que hacen referencia a TPlayer.

[escafandra]

Pues eso, ¿cual sería la forma correcta de liberar los objectos agregados  a un item de un combobox?, he probado varias formas y todas marcan error al intentar liberarlas, lo que intento hacer es resetear el combobox, dejo los siguientes códigos:
 
Aquí agrego los items:

delphi

Type
  TPlayer = class(TObject)
    PId: Integer;
    PRating: Integer;
  end;
 
Player := TPlayer.create;
Player.PId := 1;
Player.PRating := 1400; 
 
ComboBox1.Items.AddObject('Fernando',Player);

Aquí trato de limpiar el combobox:

delphi

TPlayer(ComboBox1.Items.Objects[0]).Free;
ComboBox1.Items.Delete(0);

También intenté simplemente:

delphi

ComboBox1.Items.Objects[0].Free;
ComboBox1.Items.Delete(0);

Por ültimo:

delphi

ComboBox1.Items.Clear;

Todos me Marcan error.
 
Los códigos anteriores es un ejemplo con un sólo item, los combos tienen más de 20.
 
Saludos.

 

No se como lo estas haciendo para más de un elemento, pero si estás eliminando múltiples elementos en un bucle ten en cuenta que por cada uno que elimines la cuenta de objetos disminuye con lo que el buble no puede ser desde 0 hasta Items.Count, necesita otro diseño:

 

Siguiendo el código que expones pero en un bucle:

delphi

// Creando elementos
procedure TForm1.Button1Click(Sender: TObject);
var
  Player: TPlayer;
  i: integer;
begin
  for i:= 0 to 10 do
  begin
    Player := TPlayer.create;
    Player.PId := 1;
    Player.PRating := 1400;
    ComboBox1.Items.AddObject(IntToStr(i), Player);
  end;
end;
 
// Destruyendo elementos
procedure TForm1.Button2Click(Sender: TObject);
begin
  while ComboBox1.Items.Count > 0 do
  begin
    ComboBox1.Items.Objects[0].Free;
    ComboBox1.Items.Delete(0);
  end;
end;

No se se es tu caso...

 

 

Otra forma sería esta:

delphi

procedure TForm1.Button3Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to ComboBox1.Items.Count -1 do
    ComboBox1.Items.Objects[i].Free;
  ComboBox1.Items.Clear;
end;

Saludos.

[enecumene]

Sí es en un Bucle, dejame intentarlo como comentas.

[enecumene]

MI caso es en el segundo código que comentas, el primero no sabría cómo pasarle el índice en el while.

[escafandra]

MI caso es en el segundo código que comentas, el primero no sabría cómo pasarle el índice en el while.

 

En el primer caso eliminas todos los elementos, empezando por el [0]. El tema es que al eliminarlo, el siguiente elemento pasa a ser el [0] y así hasta que no quede ninguno, por lo tanto siempre estás eliminando el elemento de indice [0].

 

En el segundo caso, eliminas los objetos asociados para luego limpiar todas las cadenas del StringList de golpe.

 

En el hipotético caso de que no todos los elementos tengan asociado un objeto, tendrás que comprobar  esta situación antes de eliminarlo, pues saltará un error al eliminar un objeto inexistente...

 

 

Saludos.

[enecumene]

Probé el primer caso, obtengo un error:

 

---------------------------
Debugger Exception Notification
---------------------------
Project ligacde.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'.
---------------------------
Break   Continue   Help   
---------------------------

 

 

Y me marca en esta línea:

delphi

procedure TObject.FreeInstance;
begin
  CleanupInstance;
  _FreeMem(Pointer(Self));
end;

De la unidad System.

 

Cuando viene a ver desisto de usar objetos y utlizos StringLists para almacenar la información.

[Agustin Ortu]

El metodo que deje arriba limpia la lista correctamente, debes usa un for inverso, o un for downto

delphi

type
  TStringsHelper = class helper for TStrings
  public
    procedure ClearAll;
  end;
 
implementation
 
procedure TStringsHelper.ClearAll;
var
  I: Integer;
  Objs: TArray<TObject>;
begin
  // obtener todos los objetos almacenados en el TString
  Objs := ToObjectArray;
  // invocar a Free en cada uno
  for I := System.High(Objs) downto System.Low(Objs) do 
    Objs[I].Free;
 
  // invocar al metodo Clear de la instancia TStrings
  Clear;
end;

[escafandra]

Probé el primer caso, obtengo un error:

 

 

Y me marca en esta línea:

delphi

procedure TObject.FreeInstance;
begin
  CleanupInstance;
  _FreeMem(Pointer(Self));
end;

De la unidad System.

 

Cuando viene a ver desisto de usar objetos y utlizos StringLists para almacenar la información.

 

 

Algo más hay en tu código o tratas de destruir objetos inexistentes. El código que expuse es un ejemplo probado en proyecto limpio expresamente y en delphi7.

 

Mira a ver si como decía Agustin Ortu, destruyes dos veces los objetos... También estoy de acuerdo con él en lo referente de no usar un objeto visual como estructura de mis datos, aunque este no tiene por que ser el caso. De todas formas, la destrucción debe funcionar correctamente.

 

 

Saludos.

[Agustin Ortu]

Es que seguramente insisto, estas liberando la misma instancia mas de una vez, ya que me comentaste que los ComboBox comparten los TStrings

 

Prueba a escribir un destructor para TPlayer:

delphi

type
  TPlayer = class
  ...
  public
    destructor Destroy; override;  
  end;
 
destructor TPlayer.Destroy;
begin
  ShowMessage('destruyendo TPlayer');
  inherited Destroy;
end;

Y yo tambien pondria un punto de ruptura en este destructor

[escafandra]

Es que seguramente insisto, estas liberando la misma instancia mas de una vez, ya que me comentaste que los ComboBox comparten los TStrings

Desconocía ese punto. Entonces enecumene tendrá que repasar el diseño, u colocar un puntero nulo en cada elemento destruido y comprobar ese estado antes de intentar una nueva destrucción:

delphi

if ComboBox1.Items.Objects[0] <> nil then
begin
  ComboBox1.Items.Objects[0].Free;
  ComboBox1.Items.Objects[0]:= nil;
end;

Saludos.

[enecumene]

Agustín, probé tu Helper, y me da el mismo error que el de escafandra:

 

---------------------------
Debugger Exception Notification
---------------------------
Project ligacde.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'.
---------------------------
Break   Continue   Help   
---------------------------
 

Eliminé todo donde haya duplicación y aún así, dejenme probar con un sólo Combo y les comento.

[enecumene]

Pues me marca el error del primer caso, desisto, usaré Listas

[Agustin Ortu]

No te desesperes

 

Pon mas codigo a ver si damos con el problema. Como agregas elementos a ambos combos, como los destruyes, que haces con ello, pon todo lo relevante 

[enecumene]

Desconocía ese punto. Entonces enecumene tendrá que repasar el diseño, u colocar un puntero nulo en cada elemento destruido y comprobar ese estado antes de intentar una nueva destrucción:

delphi

if ComboBox1.Items.Objects[0] <> nil then
begin
  ComboBox1.Items.Objects[0].Free;
  ComboBox1.Items.Objects[0]:= nil;
end;

Saludos.

 

Igual, me marca en la línea:

delphi

function TCustomListBox.TListBoxStrings.GetObject(Index: Integer): TObject;
begin
  Result := FListBox.ListItems[Index].Data;
end;

[escafandra]

 

Igual, me marca en la línea:

delphi

function TCustomListBox.TListBoxStrings.GetObject(Index: Integer): TObject;
begin
  Result := FListBox.ListItems[Index].Data;
end;

El error parece debido a que el Item de ese índice no existe, Creo que debes poner todo el código que usas para destruir, el bucle completo.

 

 

Prueba en un proyecto limpio con un sólo combo.

 

 

 

Saludos.