Llenar ListBox con fuentes del sistema

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

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

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.

[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

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

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

[jachguate]

Empezado por egostar

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

Salud OS

Quizás después de otro par de millones (de millones)

[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

[jachguate]

Empezado por keyboy

pero durante la ejecución la asignación se hace

Claro que no se hace!!

En la clase TStrings son abstractos por ejemplo Add, por lo que llegaría a intentar realizar la asignación solo si no se intentara añadir ninguna cadena, y en este supuesto, los métodos Assign y AssignTo también son abstractos, por lo que el asunto siempre terminará con una EAbstractError y sin ninguna asignación realizada. Te invito a probarlo.

Código Delphi [-]
procedure TForm1.Button6Click(Sender: TObject);
var
  Lista: TStrings;
begin
  Lista := TStrings.Create();
  try
    Lista.Add('A que no exploto!!!');  //prueba también poniendo en comentario toda esta línea
    Listbox1.Items:=Lista;  //la asignación nunca llega a ocurrir.
  finally
    Lista.Free;
  end;
  try
    ShowMessage(ListBox1.Items[0]);
  except
    ShowMessage('Explotó!');
  end;
end;

Hasta luego.