Compter et lister les items sélectionnés d'une listbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 152 fois - Téléchargée 7 fois

Contenu du snippet

{ version procedure simple }
procedure GetSelectedItems(Src: TListBox; Dest: TStrings; const ClearDest: boolean=true);
var N : integer;
begin
  Dest.BeginUpdate;
  try
    if ClearDest then
      Dest.Clear;
    for N := 0 to Src.Count - 1 do
      if Src.Selected[N] then
        Dest.Add(Src.Items[N]);
  finally
    Dest.EndUpdate;
  end;
end;

{version class helper (D2007 ou superieur)}
type
  TListBoxHelper = class helper for TListBox
  public
    procedure AssignSelectionTo(Dest: TStrings);
  end;

procedure TListBoxHelper.AssignSelectionTo;
var N : integer;
begin
  Dest.BeginUpdate;
  try
    Dest.Clear;
    for N := 0 to Count-1 do
      if Selected[N] then
        Dest.Add(Items[N]);
  finally
    Dest.EndUpdate;
  end;
end;


Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.