Recherche:

Extrêmement désolé :oops: :? l'erreur venait d'un record (OutputDevice.StartIO) qui était supérieur à [I]TIOchannel:oops:

J'ai désactivé le Timer, mis en commentaire tous les appels SetIOChannel dans MainForm et ajouté un bouton sur la FormPhidget qui permet l'appel manuellement par OnClick la procédure SetIOChannel ...

désolé :roll:, la ligne " if not Assigned(FormPhidget) then Exit;" évite le "plantage", mais ne poursuit pas la procédure...

Ceci fonctionne, mais n'est pas conviviale pour mon application:


procedure TFormPhidget.SetIoChanelClick(Sender: TObject);
begin
//SetIOchannel(7);
...

Pas dans le OnCreate, mais dans un Timer (300 msec) actif dès le démarrage, SetIOchannel n'est nécessairement appelé.

PhiGetUnit est dans le Uses de MainForm juste après "implementation"

Merci...

En effet, je trouve : dans la partie "Program", mais je ne comprends pas le problème.


program DjSys2014;

uses
Forms,
UnitMain in 'Units\UnitMain.pas' {MainForm},
....
...

Merci Andnotor,

Je suis débutant, je ne comprends pas bien ta réponse, ;-( Ce que je détecte lors de l'arrêt du programme c'est FormPhiget=nil et FormPhidget.Memo1= valeur inaccessible
...

Bonjour,

Mon problème est le suivant: j'ai une procédure simple non "objet" qui doit faire appel à une procédure (ASender: TObject). J'ai ajouté le nom de la "form"suivi d'un point, D7 ne détecte...