Llenar ListBox con fuentes del sistema

[ixMike]

Empezado por keyboy

Eso explota pero por usar un TStrings en lugar de un TStringList.

Bye

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.

[jachguate]

Parece que no leíste el código que puse en el post #9 de este hilo. Ahora veo que solo seguís suponiendo que explotaría... pero en realidad no pasa. Te invito a comprobarlo.

Código Delphi [-]
var
  Lista: TStrings;
begin
  Lista := TStringList.Create();
  try
    Lista.Add('A que no exploto!!!');
    Listbox1.Items:=Lista;
  finally
    Lista.Free;
  end;
  try
    ShowMessage(ListBox1.Items[0]);
  except
    ShowMessage('Explotó!');
  end;
end;

[ixMike]

Empezado por jachguate

Parece que no leíste el código que puse en el post #9 de este hilo. Ahora veo que solo seguís suponiendo que explotaría... pero en realidad no pasa. Te invito a comprobarlo.

Es cierto, pero, ¡si a mí me pasaba!

Mí no entender.


Edito: creo recordar que me pasaba entre objetos TStrings, no con la propiedad Items.

[jachguate]

No lo tengo a mano ahora para confirmarlo... pero estoy seguro que esto es así desde Delphi 1.

Quizás te pasaba con Turbo Pascal..

Un saludo.

[[egostar]]

Empezado por jachguate

No lo tengo a mano ahora para confirmarlo... pero estoy seguro que esto es así desde Delphi 1.

Quizás te pasaba con Turbo Pascal..

Un saludo.

Casi estoy seguro que el problema era que usabas esto

Código Delphi [-]
var
  Lista: TStrings;

begin
  Lista := TStrings.Create;
end;

en lugar de esto

Código Delphi [-]
var
  Lista: TStrings;

begin
  Lista := TStringList.Create;
end;

Salud OS

[ixMike]

Empezado por egostar

Casi estoy seguro que el problema era que usabas esto

Código Delphi [-]var Lista: TStrings; begin Lista := TStrings.Create; end;


en lugar de esto

Código Delphi [-]var Lista: TStrings; begin Lista := TStringList.Create; end;


Salud OS

No, siempre lo he hecho como dices, aunque nunca he entendido porqué

[jachguate]

Empezado por egostar

Casi estoy seguro que el problema era que usabas esto...

Eliseo: Eso "explotaría" en otro punto, pues la clase TStrings es abstracta. Te aseguro que no llegaría incluso a hacer la asignación... y no elevaría una violación de acceso sino una EAbstractError.

Te invito a cambiar el ejemplo que has puesto antes y probarlo.

Un saludo.

[[egostar]]

Empezado por jachguate

Eliseo: Eso "explotaría" en otro punto, pues la clase TStrings es abstracta. Te aseguro que no llegaría incluso a hacer la asignación... y no elevaría una violación de acceso sino una EAbstractError.

Te invito a cambiar el ejemplo que has puesto antes y probarlo.

Un saludo.

Si pues, por eso es que le preguntaba que queria decir con intentar acceder al ListBox, es obvio que te manda error de metodo abstracto.

Salud OS

[keyboy]

Empezado por jachguate

Eliseo: Eso "explotaría" en otro punto, pues la clase TStrings es abstracta. Te aseguro que no llegaría incluso a hacer la asignación... y no elevaría una violación de acceso sino una EAbstractError.

Esto no es del todo correcto. Si ponemos:

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

el compilador genera una advertencia

Constructing instance of 'TStrings' containing abstract method...

pero durante la ejecución la asignación se hace y el objeto se construye correctamente. La excepción EAbstractError saltará cuando se intente usar un método abstracto.

Bye

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