Llenar ListBox con fuentes del sistema

[[egostar]]

Empezado por ixMike

Eso explota porque al hacer ListBox1.Items:=Lista y después liberar Lista, al intentar al acceder a ListBox1.Items... Error Acces violation bla bla bla porque ya no existe, ¡lo he liberado!


Salu2.

Amigo ixMike, que quieres decir con intentar acceder a ListBox1.Items, si liberas Lista el ListBox1.Items ya cargo lo que tuviese Lista, asi que no veo donde este el error de acceso.

Prueba este código, funciona sin problemas y accedes al ListBox tantas veces quieras y Lista ya está "liberada".......

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Lista: TStrings;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Lista := TStringList.Create;
  with Lista do begin
    Add('This example uses A string List.');
    Add('It is the easiest way to add strings');
    Add('to a combobox''s list of strings.');
    Add('Always remember TStrings.Create method');
    Add('is abstract; So use TStringList.Create');
    Add('method instead.');
  end;
  Listbox1.Items := Lista;
  Lista.Free;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  ShowMessage(ListBox1.Items.Strings[ListBox1.ItemIndex]);
end;

end.

Salud OS

[ixMike]

Empezado por egostar

Amigo ixMike, que quieres decir con intentar acceder a ListBox1.Items, si liberas Lista el ListBox1.Items ya cargo lo que tuviese Lista, asi que no veo donde este el error de acceso.

Prueba este código, funciona sin problemas y accedes al ListBox tantas veces quieras y Lista ya está "liberada".......

Salud OS

se te adelantó jachguate

De todas formas, Items no es una variable tipo dato a la que se le asignes un número, un carácter... sino que es un objeto... creo que ahí estaba mi jaleo mental

Gracias a los dos.


Añado: me pasaba con Delphi 3, pero ya digo, puede que fuera entre objetos TStrings, o algo así...

[jachguate]

Fantástico, ¿no?
¿Por qué crees que he dicho esto antes?

Empezado por yo mero

Gracias al estupendo trabajo del equipo de desarrollo de la VCL!
...
¡gracias, chavales! Por eso es un placer programar en Delphi!

[[egostar]]

Empezado por ixMike

se te adelantó jachguate

Es verdad, es que jachguate ya trae varias copas encima jejeje

Salud OS

[jachguate]

Empezado por egostar

Es verdad, es que jachguate ya trae varias copas encima jejeje

Salud OS

quta!!!! ¿tan fuerte es el estoque?



pd. estoque=aliento.

[[egostar]]

Empezado por jachguate

quta!!!! ¿tan fuerte es el estoque?



pd. estoque=aliento.

Hey amigo, que a mi no me engañas, se de tus habilidades para ingerir cervecitas, traes doble tanque de combustible.

Salud OS

[jachguate]

Empezado por egostar

Hey amigo, que a mi no me engañas, se de tus habilidades para ingerir cervecitas, traes doble tanque de combustible.

Salud OS

¿alegre aquel día, no?

Por cierto... sigo pendiente con el asunto del mezcal..

[[egostar]]

Empezado por jachguate

¿alegre aquel día, no?

Por cierto... sigo pendiente con el asunto del mezcal..

Pues el 30 de febrero amigo, ya ves que se prometio No digo mas........

Salud OS