Error TStringList creados en tiempo de ejecución

[subzero]

Hola a todos/as....


Nuevamente consultado... Mi problema es el siguiente, tengo una una FORM en la cual tengo incluidos varios componentes dentro de los cuales esta un Combobox, el cual es llenado desde una consulta, ya que es necesario guardar el identificador de los datos que son almacenados en el Combo, declaro una variable de tipo TStringList en Private, y luego a este le digo que se cree en el evento OnCreate de la Forma de esta manera:

Lista := TStringList.Create;

Luego lleno los datos tanto en el combo como en la lista que he creado y hasta aqui todo bien.

Cuando cierro la Form en el evento OnClose libero la variable:

Lista.Free;


El problema surge cuando nuevamente quiero entrar a esta forma pués me indica que hay una excepcion con un error en la violación de la dirección, encerre el codigo con el que hago el llamado en try...except pero sigue apareciendo el error


Agradezo cualquier idea...

[ixMike]

¿Podemos ver el código? ¿El OnCreate, el OnClose y el código de llenar el Combo y la Lista? Gracias

[subzero]

bueno puse a que el objeto se creara no cuando se crea la forma sino cuando se abre en el evento OnShow de la Form

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

y hasta el momento parece funcionar... Gracias "ixMIKE"

[ixMike]

Empezado por subzero

bueno puse a que el objeto se creara no cuando se crea la forma sino cuando se abre en el evento OnShow de la Form y hasta el momento parece funcionar... Gracias ixMike

Es extraño , bueno, si después hiciera "cosas raras", pues pones lo dices y pones el código, ¿ok?


Salu2.

[[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!