Bjr à vous,
J'utilise les composants PascalScript dans un de mes projets.
Ajout de fonctions personnalisées: OK
Compilation et Lancement d'un script: OK
Je bute sur plusieurs problèmes:
- Dans le composant PSScriptDebugger: PSScriptDebugger1.Exec.Stop n'arrête pas le script (exemple: une boucle infinie dans le script). Je dois flinguer l'application;
- Je suis obligé de lancer le script pour accéder à la liste des fonctions disponibles
- Dans l'événement OnSelectionChange de la TListBox lsbPSFunctions qui contient la liste des fonctions personnalisées, événement censé afficher l'aide en ligne d'une fonction, je tombe sur une erreur 'This function can be only called within the OnUses event'
La documentation est très lacunaire à ce sujet.
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 procedure TCdrCalculette.DisplayHelpForProc(const MyProc: TPSRegProc); var p: LongInt; begin memoHelp.Clear; memoHelp.Lines.Add(MyProc.Name); p := MyProc.Decl.ParamCount; // ... end; procedure TCdrCalculette.lsbPSFunctionsSelectionChange(Sender: TObject; User: boolean); var MyProc: TPSRegProc; begin ShowMessage('DisplayHelpForProc()'); //try MyProc := PSScriptDebugger1.Comp.GetRegProc(lsbPSFunctions.ItemIndex); DisplayHelpForProc(MyProc); //except //end; end;
PS: L'insertion d'images dans le présent éditeur de commentaires DVP nécessite Flash et fonctionne de manière erratique
Partager