Ouvrir de multiple fichiers avec le sélecteur

denisbertin 127 Messages postés lundi 22 avril 2013Date d'inscription 22 octobre 2017 Dernière intervention - 24 janv. 2017 à 22:01 - Dernière réponse : Cirec 4191 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 12 décembre 2017 Dernière intervention
- 27 janv. 2017 à 17:48
Commentaires sur une source Créer une discussion Signaler Répondre
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

http://codes-sources.commentcamarche.net/source/101821-ouvrir-de-multiple-fichiers-avec-le-selecteur

Afficher la suite 
Cirec 4191 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 12 décembre 2017 Dernière intervention - 27 janv. 2017 à 17:48
Salut,

tout d'abord, merci d'avoir fait l'effort de poster des codes utilisables par tous ;)

Mais une question me taraude tout de même ...
pourquoi vouloir réinventer la roue et en plus, en compliquer le mécanisme ?

voici un code qui fait exactement la même chose que le tien mais en beaucoup plus simple.
unit OPen;

//Un module qui permet d'ouvrir de multiple fichier à partir du sélecteur de fichier standard de Window

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  with TOpenDialog.Create(nil) do try
    Options := Options + [ofAllowMultiSelect];
    InitialDir := ExtractFilePath(Application.ExeName);
    if Execute then
      ListBox1.Items.Assign(Files);
  finally
    Free;
  end;
end;

end.
comme tu peux le voir je suis parti de ton code ...

et si tu déposes un TOpenDialog sur ta fiche tu peux le configurer par l'inspecteur d'objet
et le code devient encore plus simple:
 ...
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ListBox1.Items.Assign(Files);
end;

end.


voilà @++
cordialement
Cirec
Commenter la réponse de denisbertin

1 réponse

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.