Comment tester l'absence de paramètres avant d'ouvrir la Form

bonjour à tous
J'ai une application à laquelle je passe un paramètre.
Dans FormCreate je veux tester si un paramètre est présent, si pas de paramètre fin de l'application:

Code:

---

1 2 3 4

procedure TForm1.FormCreate(Sender: TObject); begin if paramstr(1)='' then application.Terminate; end;

---

mais ça ne marche pas, l'application se lance même sans paramètre et plante.

Je ferai plutôt le test dans le corps du programme, en testant ParamStr avant la création des Forms et dans le cas où il n'y a pas de paramètre, je n’exécute pas le Application.run.

JS

Bonjour,

Un vieux souvenir... j'utilisais ParamCnt et s'il était à 0, c'est qu'il n'y avait pas de paramètres.
(Pas testé récemment)

avec paramcount() même résultat.
Mais je viens de tester en remplaçant Application.terminate par halt, et là ça marche.

On doit faire cette vérification en amont avant la création de la forme est avant le lancement de la boucle Run
Dans le code du projet

Code:

---

1 2 3 4 5 6 7 8 9 10

begin if Paramstr(1) = '' then Exit; RequireDerivedFormResource:=True; Application.Scaled:=True; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.

---

Je ne pensais pas que l'on pouvait tester paramstr dans le fichier lpr.
Merçi

Bonjour,

Citation:

---

Envoyé par sematimo

bonjour à tous
J'ai une application à laquelle je passe un paramètre.
Dans FormCreate je veux tester si un paramètre est présent, si pas de paramètre fin de l'application:

---

Le mieux est de tester le paramètre dans FormActivate et d'utiliser la procédure Close, ce qui vous permet accessoirement d'indiquer à l'utilisateur pourquoi l'application doit se fermer, et éventuellement de l'écrire dans le log si l'application en tient un.

bb

Bonjour,

En l'occurrence je ferais plutôt un test ParamCount > 0 car cela me gène un peu de demander un ParamStr à une position qui peut ne pas exister (même si il est vraisemblable que ParamStr retourne '' si c'est bien écrit).

Salutations

si la ligne de commande pour lancer l'application contient par erreur un espace en fin, l'espace sera considéré comme un paramètre
si je ne me trompe pas paramstr(0) retourne le nom de l'application, paramstr(0) est-il compris dans paramcount?
si oui paramcount est toujours > 0

Bonjour,

Non, ParamCount ne donne que le nombre de paramètres effectifs (ie pas de paramètre => ParamCount = 0).

Une ligne avec un espace blanc sans rien après ne devrait pas être considérée comme ayant un paramètre. En effet, les espaces ne sont pas des paramètres mais les séparateurs utilisés pour le parsing de la ligne de commande. Le parser ne devrait pas se laisser avoir par un espace ou plusieurs sans argument derrière. De même il ne devrait pas être perturbé par plusieurs blancs à la suite.

Je n'ai pas vérifié, mais si c'est le cas, il suffit d'écrire if (ParamCount > 0) and (ParamStr(1) <> '').... L'évaluation courte (active par défaut) de l'expression booléenne évitera de tester ParamStr(1) <> '' si ParamCount <= 0. Par ailleurs, il faudrait signaler le problème à l'équipe FreePascal.

Salutations

Bonjour
ParamCount > 0 est donc la meilleure option.
merci

Bonjour,

Citation:

---

Envoyé par Guesset

Bonjour,

En l'occurrence je ferais plutôt un test ParamCount > 0 car cela me gène un peu de demander un ParamStr à une position qui peut ne pas exister (même si il est vraisemblable que ParamStr retourne '' si c'est bien écrit).

Salutations

---

C'est implicite dans ma suggestion. Il faut toujours tester la taille d'un array ou d'une liste pour ne pas chercher un index inexistant qui va déclencher une exception.

bb.

Si le paramètre n'existe pas une chaine vide est retournée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function ParamStr(Param : Integer) : ansistring; begin {   Paramstr(0) should return the name of the binary.   Since this functionality is included in the system unit,   we fetch it from there.   Normally, pathnames are less than 255 chars anyway,   so this will work correct in 99% of all cases.   In time, the system unit should get a GetExeName call.   } if (Param=0) then Result:=System.Paramstr(0) else if (Param>0) and (Param<argc) then Result:=Argv[Param] else Result:=''; end;

---