Discussion :

[Jlmat]

Bonjour à tous

Eternel débutant je suis!

Code :

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

1
2
3
4
5
6
7
     function ChargeListeNoms_ToListBox(NomPers: TNom): TListbox;
       var  N     : Tnom;
         Enreg : integer;
     begin
       result.Clear;
       ...

Il me semble avoir déjà fait ça, mais je retrouve pas mon code et je n'ai pas trouvé sur la toile non plus...
Le code plante sur la ligne en rouge ci-dessus dans la fonction de recherche qui est appelé de la façon suivante:

Code :

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

 LBNoms := ChargeListeNoms_ToListBox(aNom); // LBNoms est le nom de la TListBox qui reçoit un résultat de recherche...

ça devrait marcher non?

L'erreur est "violation d'accès...", je suis sur DX 10.3

Merci pour votre aide

[pprem]

C'est normal que ça plante : la variable Result est déclarée automatiquement par le compilateur, en revanche c'est à nous de l'instancier.

Il faut donc un

Code :

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

Result := TListbox.Create(Self);

ou équivalent si tu veux vraiment retourner une TListBox.

En revanche, je ne suis pas persuadé que tu aies la bonne approche. Est-ce que tu veux remplir LBNoms ou la créer par l'intermédiaire de ta fonction ?

[SergioMaster]

Bonsoir,

la TListBox résultat n'est pas créée donc il est logique qu'il y ait une erreur !

Code :

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

result:=TListBox.Create(self);

Mais je doute, j'ai l'impression que la TListBox existe déjà,

Code :

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

1
2
3
4
 procedure ChargeListeNoms_ToListBox(NomPers: TNom; AListBox : TListBox);
 begin
   AListBox.Items.Clear;
   ...

en fait j'ai tellement pris l'habitude les LiveBindings que je ne sais plus vraiment comment procéder

[anapurna]

salut

en complement de ce qui a deja etait dis
plutot que la listBox utilise le TStrings il est aussi là pour ça

Tu n'as pas besoin d'un objet visuel pour ton traitement c'est des données que tu repasseras a ta listbox

[alheuredudejeuner]

Bonjour


L'avantage du Tstrings, est que tu pourra valoriser plein d'autre chose que ta tListBox

Code :

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

function mafonction(maliste: TStrings): boolean

et quand tu l'appelles

Code :

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

if  mafonction(TListBox.Items) then...

Code :

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

if  mafonction(mastringlist) then...

Code :

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

if  mafonction(macombobox.items) then...

etc.

Cordialement

[Papy214]

Il vaudrait mieux écrire :

Code :

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

1
2
3
4
5
6
 
procedure ChargeListeNoms_ToListBox(NomPers: TNom; ListBox: TListbox);
begin
 
  ...
end;

[Jlmat]

merci à tous

Vous avez répondu au delà de mes questions.
effectivement, ça ne me plait pas de créer un TlisBox alors qu'il existe déjà sur une fiche... merci à pprem qui a relevé mon erreur. Je pensai que résult adoptait la structure TListBox automatiquement...
Je crois qu'effectivement dans le passé, je devais passer ma TlisBox en paramètre var papyau lieu de la mettre en résultat de fonction.
du coup, je pense qu'effectivement, je n'ai pas la bonne approche;

J'adopte donc la création du stringlist préconisé par anapurna et alheuredudejeuner