Liberación de memoria

[Jome]

Hola.

Si en un objeto MyStrings de tipo TStrings hago esto ...


MyStrings.AddObject('Hola', TObject(StrNew(PChar('QueTal'))));


... ¿puedo luego liberar esa memoria que ha solicitado StrNew haciendo lo siguiente?:


//Suponemos que el elemento que hemos añadido tiene índice 1
MyStrings.Items.Objects[1].Free


¿O por el contrario tengo que hacerlo mediante StrDispose?

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

La liberación me parece correcta y luego recuerda borrar el índice 1 (Delete), ya que ahora te ha quedado un String en la posición 1 con un apuntador a ¿???¿?.

Lo que no me ha quedado claro es esto (el CAST como TObject), pero bueno:

TObject(StrNew(PChar('QueTal')))

[Jome]

La liberación me parece correcta y luego recuerda borrar el índice 1 (Delete), ya que ahora te ha quedado un String en la posición 1 con un apuntador a ¿???¿?.

Efectivamente, si no se elimina el elemento entero, habría que hacer .Objects[1] := nil


Lo que no me ha quedado claro es esto (el CAST como TObject), pero bueno:

TObject(StrNew(PChar('QueTal')))



Es un cast para que acepte el puntero a la nueva cadena. A efectos prácticos, supongo que es equivalente a Pointer(StrNew(PChar('QueTal'))).

Lo que no entiendo muy bien es cómo haciendo .Objects[1].Free es capaz de liberar esa memoria, siendo que no se trata de un objeto creado mediante un constructor Create.

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

Lo que no entiendo muy bien es cómo haciendo .Objects[1].Free es capaz de liberar esa memoria, siendo que no se trata de un objeto creado mediante un constructor Create.

Bueno, ahí está la cosa y tal vez el error; Piensa que con temas de memoria, no siempre "peta" cuando lo haces, sino que a veces "peta" cuando intentas acceder/liberar (y se de cuenta de que has accedido a una posición incorrecta).
El Free supongo que sabe cómo liberar un TObject o derivado porque almacena la información de la clase, en este caso, no se. No acabo de entender cómo se puede hacer un CAST de un Puntero como TObject. Un TObject, que yo sepa hay que crearlo (como tú bien dices) utilizando su constructor.
Otra cosa es que aproveches el puntero del TObject (propiedad Objects) y en lugar de poner ahí un TObject, pongas otra cosa; Correcto. Pero entonces no deberías tratarlo como un TObject (CAST) ni intentar liberarlo como tal.

[Jome]

Nada, he comprobado que realmente no se puede liberar haciendo .Free
Entiendo que la razón será lo que hemos hablado, que el objeto no ha sido creado mediante su constructor Create y que, por tanto, me atrevo a decir que ni siquiera se trata de un objeto.
Al intentarlo salta una excepción de acceso a memoria, así que hay que liberar mediante StrDispose:

StrDispose(PChar(MyStrings.Items.Objects[1]));


Muchas gracias por la ayuda.
Un saludo.

[Lepe]

La lógica me dice que si reservas memoria mediante un método (strNew) debes usar una forma de liberarlo que sea compatible con la forma de reservar, esto es usar StrDispose.

El moldeo de tipos, yo lo veo como una característica muy potente, pero tú eres el responsable de "saber como usarlo".

Que no salte una excepción en la liberación, no quiere decir que realmente lo esté liberando correctamente.

La ayuda lo deja claro, StrNew llama a StrAlloc:

A 32-bit number giving the total amount of memory allocated is stored in the four bytes preceding the first character; it is equal to Size + 4. If space for a string is allocated with StrAlloc, it should be deallocated via StrDispose

Edito: Ya veo que llego tarde... como siempre ;).

Saludos