Ver Mensaje Individual
  #1  
Antiguo 26-09-2006
jorllazo jorllazo is offline
Miembro
 
Registrado: sep 2006
Ubicación: Valencia, España
Posts: 83
Reputación: 18
jorllazo Va por buen camino
Se borran los elementos de la coleccion

Hola Amigos.
Tengo este codigo :
Código Delphi [-]
procedure TfrmContacts.btnSaveAddressClick(Sender: TObject);
var
  oAdd: TAddress;
  ind : integer;
begin
  ind := lstAddresses.ItemIndex ;
  if oPerson.Addresses.Count > 0 then
  begin
    oAdd := oPerson.Addresses.Item[ind];
    with oAdd do
    begin
        street:= edtStreet.Text;
        postalCode := edtPostalCode.Text;
        city := cboCity.Text;
        province := cboProvince.Text;
        country := cboCountry.Text;
        save;
    end;
    oAdd.Free;
  end;
end;

en donde oPerson.Addresses es una clase que deriva de TCollection y TAddress deriva de TCollectionItem, el caso es que la lista se carga de la BD
salen 2 Items y todo lo demas ,hsta ahi perfecto, pero cuando realiza la Accion
Código Delphi [-]
            oAdd.free
me borra el objeto de la Coleccion, es esto normal? No estoy muy acostumbrado a trabajar asi. liberando memoria y demas.,.

el caso es que cada vez que pasa por ahi el codigo, me elimina un elemento de la lista.
__________________
Gracias de Antemano
Responder Con Cita