poblema con listbox

[andresorozco86]

si asi es como lo tengo, queria es saber si existia otra forma de mejorarlo

[rgstuamigo]

Bueno..otra opcion que veo es que tengas un historial de los item borrados por ejemplo podrias utilizar otro TStringList y cuando borres algo de tu listBox lo añadas a tu TStringList historial de tal manera que el último item de nuestra lista historial sería el último item que se borró del listbox..
Saludos...

[Neftali [Germán.Estévez]]

Puedes usar un String.
Debería bastar con esta línea antes

Código Delphi [-]
  StringLista :=  ListBox1.Items.Text;

Y esta después para restaurar:

Código Delphi [-]
  ListBox1.Items.Text := StringLista;

[eflosten]

Empezado por Neftali

Puedes usar un String.
Debería bastar con esta línea antes

Código Delphi [-]
  StringLista :=  ListBox1.Items.Text;

Y esta después para restaurar:

Código Delphi [-]
  ListBox1.Items.Text := StringLista;

Con eso solo recuperaría el último que se ha borrado, y si no he entendido mal lo que quiere es que, independientemente de los movimientos que haya en el listbox, pueda volver a un estado "origen"

[*Caro*]

Hola

Empezado por eflosten

Con eso solo recuperaría el último que se ha borrado, .......................

Si guarda en la variable String antes de hacer cualquier operación si va a tomar todos los items, tal como lo dice Neftali.

andresorozco86, ¿porque no en un StringList? tienes muchas mas opciones al guardar en el StringList y el codigo para copiar es solo una línea.

Código Delphi [-]
  //Para copiar al >StringList
  StringList.Assign(ListBox1.Items);
 
  //Para restaurar
  ListBox1.Items.Assign(StringList);

Saluditos

[Neftali [Germán.Estévez]]

Empezado por eflosten

Con eso solo recuperaría el último que se ha borrado, y si no he entendido mal lo que quiere es que, independientemente de los movimientos que haya en el listbox, pueda volver a un estado "origen"

Basta con colocar la primera línea después de inicializar el listBox, como ha dicho Caro.

[andresorozco86]

Muchas gracias a todos por las soluciones