Discussion :

[Floverdoz]

BOnjour,
J'ai un Type :

Code :

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

1
2
 type TUpdateBD = procedure(const pRespStat :TObjectCollection;
                        const cas: string; const pLogID, pCampaignID : integer);

Qui voit son code défini dans une de mes fiches.

Je passe à une fonction (d'une autre fiche qui ne doit pas avoir la premiere défini dans ses uses sinon je me triturerais pas autant les méninges ) ces valeurs :

Code :

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

1
2
Procedure TCampaign.ApplyLog (const pLogCollec : TObjectCollection;
                        pUpDateBd : TUpdateBD = nil);

Et je voudrais pouvoir faire effectuer lors du code de ApplyLog la fonction pUpDateBD si <> nil genre :

Code :

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

1
2
3
 
if ( pUpDateBd <> nil ) then pUpdateBD(self.RespondentStatus,
                        'insert', StrToInt(tmpID), self.ID);

mais le vilain compilateur me dit :
[Erreur] Campaign.pas(657): Pas assez de paramètres originaux .

j'ai essayé en transtypant : TUpdateBD(pUpDateBD) le résultat est le même.

A quoi est ce du, je ne peux pas faire ca comme ca ? Car si je ne met pas ce if :

Code :

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

1
2
pUpdateBD(self.RespondentStatus,
                        'insert', StrToInt(tmpID), self.ID);

quand j'arrive avec un nil au moment de lancer la procédure j'ai une erreur de violation d'accès 000000, ce qui est normal.Comment faire , merci .

[Floverdoz]

Pour les gens intéressés j'ai trouvé :

il suffit de mettre un @ dans le if :

Code :

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

if (@pUpdateBD <> nil)

si l'adresse de la procédure est nulle alors ne fait rien sinon lance la procédure.