problema con listbox

[[nlsgarcia]]

ale4132,

Empezado por ale4132

si no es mucha molestia quisiera saber si es posible realizar el mismo procedimiento de eleminimar duplicados por medio de un boton utilizando una estructura de trabajo "for .... do" en la programacion

Revisa este código:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
   i,j : Integer;
   Item : String;
   Count : Integer;

begin

   Count := ListBox1.Count-1;

   for i := 0 to Count do
   begin
      If (i > Count) Then break;
      Item := ListBox1.Items.Strings[i];
      for j := i + 1 to Count do
      begin
         If (j > Count) Then break;
         if (ListBox1.Items.Strings[j] = Item)  then
         begin
            ListBox1.Items.Delete(j);
            Dec(Count);
         end
      end;
   end;

end;

El código anterior elimina los Items Duplicados en un control TListBox por medio de comparaciones sucesivas.

Espero sea útil

Nelson.