Ouvrir de multiple fichiers avec le sélecteur

Soyez le premier à donner votre avis sur cette source.

Vue 3 361 fois - Téléchargée 708 fois

Description

Ouvrir de multiple fichiers avec le sélecteur standard de Windows, permet d'ouvrir avec le sélecteur de fichiers et les touches Majuscule et Ctrl, plusieurs occurance d'une liste ordonnée. Parcours une suite de chaine de caractères jusqu'au caratère $0 et s'arrète quand il rencontre un double zéro. Extrait de cette chaine de caractères le répertoire (directory) en premier.

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
3824
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 décembre 2020
37
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

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.