Error TStringList creados en tiempo de ejecución

[[poliburro]]

Si tus formularios no son creados dinámicamente, es decir solo necesitas llamarlos a través de formulario.show, realiza la creación de la variable en el evento Onshow del formulario.

[[egostar]]

Empezado por poliburro

Si tus formularios no son creados dinámicamente, es decir solo necesitas llamarlos a través de formulario.show, realiza la creación de la variable en el evento Onshow del formulario.

Esto me recuerda a algo que comente en el hilo suma de registros.


Salud OS

[subzero]

siguiendo la sugerencia de ixMIKe esto es lo que hago....

Código Delphi [-]
private
  Lista : TStringList;
..............

procedure TForma1.FormShow(Sender: TObject);
begin
  Lista := TStringList.Create;
  /*Aqui lleno tanto la lista como el Combobox*/
  Lista.Clear;
  ComboBox1.Clear;
  with Query do
  begin
    close;
    Sql.Clear;
    Sql.Add('SELECT campo_lista, campo_combo');
    Sql.Add('FROM nombre_tabla');
    open;  first;
    while not (eof) do
    begin
      lista.Add(fieldbyname(campo_lista).AsString);
      combo.Add(fieldbyname(campo_combo).AsString);
      next;
    end;
    close;
 end;  
end;


procedure TForm1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Lista.Free
end;

Espero que ahora este mucho más claro... saludos!

[jachguate]

En primer lugar, recomiendo que el TStringList debiera crearse en el OnCreate del formulario y destruirse en el OnDestroy.

En el OnShow basta con que se quede la sentencia Lista.Clear que por ahora está de mas.

Hasta luego.

[[poliburro]]

Empezado por jachguate

En primer lugar, recomiendo que el TStringList debiera crearse en el OnCreate del formulario y destruirse en el OnDestroy.

En el OnShow basta con que se quede la sentencia Lista.Clear que por ahora está de mas.

Hasta luego.

Eso es correcto solo si el formulario es dinámicoo, de ser estático genera el error que le está sucediendo al amigo, Insisto, debes colocar la creación del stringlist en el evento onshow.

suerte

[jachguate]

Empezado por poliburro

Eso es correcto solo si el formulario es dinámicoo, de ser estático

Francamente no estoy seguro de que querés decir con "dinámico" y "estático", pero tampoco veo cuales son los argumentos para que el StringList se cree en el OnShow.

De hecho, creo que podría ser en ambos... siempre depende.

[[Lepe]]

Yo opto por el OnCreate, es lo "más seguro para nuestro código", o bien amarrar bien con FreeAndNil la lista, pero es marear la perdiz en este caso. Si queremos tener una lista en memoria a la misma par que un combo, dará igual cargarla después de crear el form que antes de mostrar el form.

Si lo dejas en el OnShow, basta que hagas un :
form1.hide;
form1.show;
form1.hide;
form1.show;
form1.hide;
form1.show;

Para crear 3 listas en memoria con los datos repetidos, las 2 primeras listas se quedaran en el limbo de RAM.

Y en otro orden..... ¿para qué usas esa lista? ya tienes el combo, podrías utilizarlo para buscar elementos o lo que quieras, mientras no asignes el itemindex del combo, no cambiará la selección del mismo.

Saludos

[jachguate]

Empezado por Lepe

Si lo dejas en el OnShow, basta que hagas un :
form1.hide;
form1.show;
form1.hide;
form1.show;
form1.hide;
form1.show;

Tenes toda la razón, Lepe. Cuando he dicho esto:

Empezado por jachguate

De hecho, creo que podría ser en ambos... siempre depende.

Es porque estaba pensando que Hide podría disparar el evento OnClose, pero ahora he abierto el delphi y veo que no lo hace. Así, no hay paridad entre la creación y la liberación de la lista, provocando pérdida de memoria.

[[poliburro]]

Empezado por jachguate

Francamente no estoy seguro de que querés decir con "dinámico" y "estático", pero tampoco veo cuales son los argumentos para que el StringList se cree en el OnShow.

De hecho, creo que podría ser en ambos... siempre depende.

Dinámico: El formulario es creado al vuelo. Antes de iniciar la llamada al formulario debe crearse la instancia.

Estático: El formulario es creado al iniciar la aplicación. Al llamarlo, siempre se llama a la misma instancia.

Dinámico. Los elementos se destuyen y construyen con el formulario.

Estático.

Se crean elementos en el evento OnCreate (Elementos creados una sola ocasión)

Se destruyen los elementos al cerrar el formulario.

Al llamar a la misma instancia, debido a que esta no es creada nuevamente, los elementos a los que se intenta acceder ya no existen pues fueron destruidos al cerrar el formulario.

Punto

[jachguate]

Empezado por poliburro

Estático.

Se crean elementos en el evento OnCreate (Elementos creados una sola ocasión)

Se destruyen los elementos al cerrar el formulario.

Creo que el problema acá es de concepto. Lo que se crea en el OnCreate, debiera destruirse en el OnDestroy.

Hasta luego.