Discussion :

[Jipété]

Bonjour,

Soit une procédure procedure TMainForm.ShowDirectory(ListDir: string; var Liste: TCheckListBox); qui fonctionne bien, je peux lui passer l'une ou l'autre des TCheckListBox de ma fiche, et ça affiche bien les fichiers en liste, tutti va bene.

Mais voilà-t-y pas que j'ai maintenant aussi besoin d'une TListBox pour récupérer tout pareil la liste des fichiers d'un dossier.

L'idée serait donc d'aller chercher le parent commun des deux objets cible, à savoir TCustomListBox, de déclarer
procedure ShowDirectory(ListDir: string; var Liste: TCustomListBox); et d'appeler ShowDirectory(chemin, MyCheckListBox); ou MyListBox); mais vous pensez bien que ça serait trop simple !

Je ne compile pas (Error: Call by var for arg no. 2 has to match exactly: Got "TCheckListBox" expected "TCustomListBox"), normal, j'ai essayé de ruser avec du as, avec du ClassName, mais je patauge et je n'avance pas...
Je viens donc quémander un peu d'aide, une idée, quelque chose pour m'éviter de bêtement dupliquer cette procédure ShowDirectory juste à cause de la cible, qui est pratiquement la même dans les deux cas.

Il existerait une méthode bourrin consistant en l'utilisation d'une TListBox cachée qui serait recopiée après l'appel, mais est-ce bien honnête ? Genre
procedure ShowDirectory(ListDir: string; var ListBoxCachée: TListBox); et

Code :

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

1
2
3
4
ShowDirectory(chemin, ListBoxCachée);
MyCheckListBox := ListBoxCachée;
// ou
MyListBox := ListBoxCachée;

.
Comment vous feriez, vous ?
(Google n'est pas d'une grande aide, ou je ne sais pas formuler la bonne question)

[mm_71]

Pour autant que j'aie compris la question ( Pourquoi var liste ? Il me semble que liste suffirait ) une méthode primaire serait un truc du genre ou on envoie NIL pour celui dont on à pas besoin:

Code :

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

1
2
3
4
5
procedure ShowDirectory(ListDir: string; Tmp_Liste_1: TCustomListBox, Tmp_Liste_2: TListBox);
Begin
  if Tmp_Liste_1:=NIL then ShowDirectory(chemin, Tmp_Liste_2) else
  ShowDirectory(chemin, Tmp_Liste_1)
End;

Il me semble que ça devrait marcher. Sinon il y-a longtemps j'avais fait un test ( Que je ne retrouve plus ) pour un truc du genre.
Avec:

Code :

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

procedure ShowDirectory(ListDir: string; Liste: Tobject);

Tu peux envoyer n'importe quoi dans liste.
Ensuite je crois que la formule magique est:

Code :

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

1
2
if Liste is TcustomListBox then ... else
if Liste is TListBox then ..

.
Mais pas certain, pour les détails attendre un expert. Ma seule certitude c'est que sur le principe ça marche.

Edit:

https://www.developpez.net/forums/d1...r-d-evenement/

En cherchant "if sender" lazarus dans gogol tu en auras une brouette.

[tourlourou]

Hello !
Ne serait-il pas possible (et plus simple) d'avoir un paramètre TStrings et de passer à la procédure celui de la liste voulue, c'est-à-dire TListBox.Items ou TCheckListBox.Items ?

[Jipété]

Yop !

Hello !
Ne serait-il pas possible (et plus simple) d'avoir un paramètre TStrings et de passer à la procédure celui de la liste voulue, c'est-à-dire TListBox.Items ou TCheckListBox.Items ?

Oui, ça fait penser à ma liste cachée,

Sinon il y a longtemps j'avais fait un test (que je ne retrouve plus) pour un truc du genre.
...
Ma seule certitude c'est que sur le principe ça marche.

C'était en Delphi ?

L'idée était belle, mais dans ShowDirectory la 1^re ligne c'est Liste.Items.Clear; et bien sûr je gagne Error: identifier idents no member "Items".
Idem en rajoutant if Liste is TCustomListBox do ou if Liste is TCheckListBox do ou with Liste as TCheckListBox do...

Edit:
https://www.developpez.net/forums/d1...r-d-evenement/

En cherchant "if sender" lazarus dans gogol tu en auras une brouette.

Tout ça utilise Sender, que je n'ai pas...

( Pourquoi var liste ? Il me semble que liste suffirait )

Pour aller plus vite.

une méthode primaire serait un truc du genre où on envoie NIL pour celui dont on n'a pas besoin:
--snip--
Il me semble que ça devrait marcher.

Oui, l'idée du test sur nil pourrait être une bidouille intéressante, un peu comme ma liste cachée.

[mm_71]

Tout ça utilise Sender, que je n'ai pas...

Euh ? Sender c'est juste un nom de variable, tu peux le remplacer par n'importe quoi y compris var liste.

[tourlourou]

Le code le plus générique est à mon avis de ce type :

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
procedure TForm1.Button1Click(Sender: TObject);
 
procedure ShowDirectory(ListDir: string; FileList: TStrings);
var
 ListeLocale: TStringList;
 i: integer;
begin
  ListeLocale := TStringList.Create;
  try
    ListeLocale.Add(ListDir);
    for i:=1 to 10 do
      ListeLocale.Add(IntToStr(i));
    FileList.Assign(ListeLocale);
  finally
    ListeLocale.Free;
  end;
end;
 
begin
  ShowDirectory('ListBox', ListBox1.Items);
  ShowDirectory('ComboBox', ComboBox1.Items);
end;

Essayé à l'instant sous CT6.15/W7, il peuple les listes des 2 composants.
Pour ton problème, c'est avant l'appel qu'il faut faire un Clear, pour effacer les coches d'une CheckBox.

[Jipété]

Euh ? Sender c'est juste un nom de variable, tu peux le remplacer par n'importe quoi y compris var liste.

Oui mais une recherche gogol avec "if toto" je suis pas sûr que je vais gagner beaucoup,

Hello !
Ne serait-il pas possible (et plus simple) d'avoir un paramètre TStrings et de passer à la procédure celui de la liste voulue, c'est-à-dire TListBox.Items ou TCheckListBox.Items ?

Ben non...
Et c'est un truc qui me dépasse complètement : ShowDirectory(chemin, clbFiles. );... la complétion m'indique qu'il faut Items: TStrings, ce que j'accepte (= ShowDirectory(chemin, clbFiles.Items);), et je gagne Error: Can''t take the address of constant expressions avec le curseur qui clignote après Items...

En gros, va te rouler avec ce machin que je te propose et que je te refuse...

[mm_71]

Error: identifier idents no member "Items"

Oui, en effet. J'avais oublié qq. chose... Test complet ci-dessous qui marche chez moi.

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
49
50
51
52
53
54
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  CheckLst, Buttons;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckListBox1: TCheckListBox;
    ListBox1: TListBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Test ( liste:TObject );
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
test (ListBox1);
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 test ( CheckListBox1);
end;
 
Procedure TForm1.Test ( Liste:Tobject );
Begin
  if liste is TListBox then (Liste as TListBox).Items.Clear;
  if liste is TCheckListBox then (Liste as TCheckListBox).Items.Clear;
end;
 
end.

[Jipété]

Bonsoir à tous,

Oui, en effet. J'avais oublié qq. chose...

Code :

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

  if liste is TListBox then (Liste as TListBox).Items.Clear;

qq chose à quoi je n'ai pas du tout pensé pour la bonne et simple raison que je trouve ça redondant.
Je m'explique : on a un premier test if liste is TListBox then et si c'est le cas on veut effacer ses Items donc pour moi l'association suivante Liste as TListBox n'est pas nécessaire.

C'est un peu comme si on disait Si l''objet_devant_toi est une porte alors ouvre-la et sors : c'est parfaitement fonctionnel, et je ne vois pas pourquoi j'aurais dû écrire Si l''objet_devant_toi est une porte alors ouvre la porte et sors : c'est moche et peu français, donc mon cerveau n'a pas pu concevoir ce truc...

Je me doutais que ça tournait autour de ça, mais mon ange gardien n'en a pas voulu, et au final, je n'ai même plus besoin de TListBox cachée, en repensant très fort à tout ça, ben je peux m'en sortir uniquement avec des TCheckListBox, d'après les tests de fin d'après-midi,

Désolé de vous avoir fait perdre votre temps.

@Yves : je trouve ta solution un peu tarabiscotée, surtout avec le Create et le Free à chaque appel, tout ça est peu lisible, surtout qu'au bout du compte, que ça soit des TStrings, une TStringList ou une TLisBox, une fois tout ça compilé je pense qu'on doit se retrouver, au niveau binaire, avec plus ou moins la même chose. Non ?

@BM : tu nous fais un mélange des réponses d'Yves et de mm_71, on dirait, alors relis ce qui précède en commençant par le bas,

Merci à tous,

[Jipété]

Bon, ne vous prenez plus la tête, ça fonctionne très bien avec la TListBox cachée, et d'autant plus qu'elle ne sert que pour passer les infos aux TCheckListBox :

Code :

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

1
2
  ShowDirectory(Chemin, lbHidden);
  clbFiles.Items := lbHidden.Items;

Si je dois remplir une TListBox normale, je la passe directement et voilou !

Bon aprème,