Método Add(s) de TStringList no me hace caso

[david.rguez]

Bueno, ya se resolvió.

Puse un ShowMessage con el Text y sí que me lo mostraba ahí (el error posterior es que el Free lo tenía colocado donde no debía), pero me queda una cuestión que no entiendo...

...si sí almacenaba correctamente el valor... ¿por qué no me lo mostraba al inspeccionar la lista durante un punto de interrupción (justo después de haber ejecutado el "Add")?

Gracias a todos por la ayuda.

[jachguate]

Empezado por david.rguez

...si sí almacenaba correctamente el valor... ¿por qué no me lo mostraba al inspeccionar la lista durante un punto de interrupción (justo después de haber ejecutado el "Add")?

Ahora veo que maeyanes podría estar en lo correcto cuando dijo:

Empezado por maeyanes

A lo mejor el compilador la elimina por que no le encuentra relevancia...

Mientras yo estaba equivocado al decir:

Empezado por jachguate

Estoy seguro que el optimizador no eliminaría una línea como esta.

.

Te explico brevemente: Delphi cuenta con un optimizador, que elimina todas aquellas instrucciones irrelevantes al ensamblar tu programa, de manera que no se gasten innecesariamente ciclos del procesador.

Así, si tenemos un código como este:

Código Delphi [-]
var
  I: Integer;
begin
  I:= 10;
end;

Al comiplar, el optimizador se da cuenta que el valor de I no es usado nunca, nos muestra un hint en la consola y elimina la instrucción de asignación, pues el valor no se utilizará en el programa. Esta pieza de delphi es realmente sofisticada, y nunca lo he visto fallar. Así, al hacer algo como:

Código Delphi [-]
var
  L: TList;
begin
  L:= TList.Create;
  try
    L.Add(Objeto1);
    UsarLista(L);
    L.Add(Objeto2);
  finally
    L.Free;
  end;
end;

Es probable que el optimizador también note que luego de añadir el Objeto2, la lista no se use mas, y por tanto, la instrucción no es necesaria. Esto supone que el optimizador conoce la VCL, y por tanto sabe cómo optimizar también su uso, cosa que yo no creía probable.

Habrá que leer un poco acerca de él.

Hasta luego.



pd. Edité tu mensaje para cambiar la etiqueta code por la etiqueta delphi. Veras que queda mucho mejor.

[[maeyanes]]

Hola...

Para poder ver lo que tiene un TStringList mediante el Watch, tienes dos formas:

1. Colocar en el Watch Lista.Text o
2. Colocar en el Watch Lista[n], donde n es el índice que quieras ver, así para ver que valor está en la primera posición de la lista haces: Lista[0]

Si colocas el cursor sobre la variable Lista no vas a ver el contenido de la variable, para eso tendrías que tener en código algo como Lista.Text y poner el cursor sobre Text...


Saludos...

[david.rguez]

jachguate, gracias por la información, realmente interesante; aunque no creo que ese sea el problema, pues sigue sin mostrarlo en depuración aunque sí lo graba (habiendo ya colocado correctamente el Free).

Empezado por maeyanes

Hola...

Para poder ver lo que tiene un TStringList mediante el Watch, tienes dos formas:

1. Colocar en el Watch Lista.Text o
2. Colocar en el Watch Lista[n], donde n es el índice que quieras ver, así para ver que valor está en la primera posición de la lista haces: Lista[0]

Si colocas el cursor sobre la variable Lista no vas a ver el contenido de la variable, para eso tendrías que tener en código algo como Lista.Text y poner el cursor sobre Text...


Saludos...

Pues yo había mirado lo del cursor porque cuando voy a un objeto que no tiene valor como tal (sino que hay que acceder a una de sus propiedades) me sale el tipo y herencia del componente. Por eso, al ver dos paréntesis sin nada dentro en este, asumí que mostraba una lista sin contenido.

Gracias.