Discussion :

[fifisoft57]

bonjour a tous

j'ai besoin de votre aide pour crée une procédure sur une action, voila le scénario :

j'ai crée une variable globale tableau a 2 colonnes

dans se tableau je voudrais le remplir comme ceci :

j'ouvre une opendialog pour cherche un fichier ( ça ok sa fonctionne )
je récupère le lien dans un Tedit ( ca ok pas de prb )
j'ai un autre bouton qui est ajouté, quand j'appuis dessus je voudrais ça :
je rajoute le nom du fichier dans la colonne 1 de mon tableau
je rajoute le chemin complet avec le nom fichier dans la colonne 2
( j'ai déjà une procédure qui récupère le nom fichier avec son extension : extractfilename et pareil je récupère le chemin complet dans mon Tedit)

a la suite de l'ajout dans mon tableau je rajoute le nom du fichier dans un TlistBox et il faudrais que a chaque ajout d'un fichier dans le tableau la Tlisbox se met a jours avec la colonne 1 de mon tableau.

je sais pas si j’étais précis sur ma demande, mais je serais ravis de vous donner plus de détail si besoin

encore merci de votre aide

[tourlourou]

Ne suffirait-il pas d'ajouter un ListBox.Add(FileName) après le Tableau[i,1]:=FileName ?

[fifisoft57]

merci de votre réponse

oui cela est logique de faire cette procédure,je met une capture du projet.



pouvez vous m'aide a crée cette procédure svp car je sèche la

merci d'avance

[blonde]

Tu peux poster le code que tu as écrit pour le moment ?

[fifisoft57]

pour l'instan j'ai pas grand chose car je sais pas par ou commencer voici le debut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.ajout_fileClick(Sender: TObject);
var
  FileName : string;
  i : integer;
 
begin
 
  FileName := extractfilename  (patch_file.Text);
 
 
 
 
end;

avec une variable global tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
var
  Form1: TForm1;
  FichierFax : array[1..2] of string;

[SergioMaster]

Il s'agit d'un programme VCL ou FMX ?

[ShaiLeTroll]

ExtractFileDir, ExtractFileName plutot sur une TListView qui gère de vraies colonnes !
La ListBox gère des colonnes pour la densité de l'informations mais pas des colonnes type grille

[SergioMaster]

La ListBox gère des colonnes pour la densité de l'informations mais pas des colonnes type grille

Sauf s'il s'agit de FMX justement
sinon je croyais avoir écrit et suggéré d'utiliser un TStringList mais j'ai du posté trop tôt

[blonde]

Tu es dans quelle version de Delphi ?
Et pourquoi veux-tu utiliser un tableau de String ?
As-tu pensé aux listes ? A mon avis, ce sera plus facile à utiliser.

Globalement, pour ton algorithme, tu peux stocker une liste de chemins, et écrire une fonction qui met à jour ta liste visuelle (une Tlistview ou tout autre composant) à partir du contenu de ta liste de chemins. Qu'en penses-tu ? A quel niveau as-tu besoin d'aide ?

[fifisoft57]

bonsoir et merci de me répondre

en faite je veux mettre plusieurs fichiers pdf dans une procédure d'envois de mail et j’utilise une listbox pour liste les fichiers et un tableau pour lire les liens des fichiers a inséré dans le mail qui est une autre procédure

PS : c'est du VCL

[tourlourou]

Il faut pê penser au cas où 2 fichiers de répertoires différents auraient le même nom : comment les différencier dans le ListBox ?

[sergio_is_back]

bonsoir et merci de me répondre

en faite je veux mettre plusieurs fichiers pdf dans une procédure d'envois de mail et j’utilise une listbox pour liste les fichiers et un tableau pour lire les liens des fichiers a inséré dans le mail qui est une autre procédure

PS : c'est du VCL

Le plus simple est de gérér une TStringList à coté de ta TListBox
Lorsque tu ajoutes le nom fichier dans ta TListbox.Items, tu ajoutes le fichier avec son chemin complet dans la TStringList
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Listbox1.Items.Add(extractfilename(patch_file.Text));
MaStringList.Add(patch_file.Text);

Comme ça les deux listes d'éléments conservent le même N° d'index pour chaque élément...

[SergioMaster]

Ou encore, utiliser l'ajout d'objets TListBox.Items.AddObject

par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
type
  TFileToSend = Class(TObject)
    NomFichier : TFileName;
   constructor Create(nom : TfileName);
  end;
 
  TForm99 = class(TForm)
    ListBox1: TListBox;
    Addit: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    procedure AdditClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AdditClick(Sender: TObject);
begin
ListBox1.Items.AddObject(ExtractFileName(Edit1.Text),TFileToSend.Create(Edit1.Text));
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  edit1.Text:=OpenDialog1.FileName;
end;
 
 
{ TFileToSend }
 
constructor TFileToSend.Create(nom: TfileName);
begin
NomFichier:=nom;
end;
 
end.

[fifisoft57]

Merci a vous , je vais regardé ca de plus pret, je reviendrais vers vous si besoin

merci encore