Passez une variable d 1 batch a turbo pascal

Fermé
bithorax - 25 févr. 2006 à 13:34
Chrisix Messages postés 60 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 3 décembre 2008 - 19 avril 2006 à 10:48
Bonjour a tous,

une premiere pour moi d'habitude je trouvais tout sur ce site sans écrire mais me voila

je desirerais passer des variables d un fichier batch en variable sous tubo pascal pour pouvoir les traiter dans un programe

bah voila... Si vous avez une soluce svp...
A voir également:

3 réponses

sebsauvage Messages postés 32893 Date d'inscription mercredi 29 août 2001 Statut Modérateur Dernière intervention 21 octobre 2019 15 659
25 févr. 2006 à 15:05
Je vois 2 solutions:

Le batch appel ton programme par:
tonprogramme.exe param1 param2 ...
et ton programme lis les paramètres passés en ligne de commande.


ou bien:
le batch créé des variables d'environnement (set CHEMIN=c:\toto) et ton programme lit les variables d'environnement.
0
la premiere solution est celle que jaimerais faire mais ca ne marche pas peut etre que ca vient d'un mauvais maniement
de turbo pascal

voila un exemple addition ss tp7

progamme add;
var x,y,Z:integer;
begin
z:=x+y;
wrtite(z)
end.

le probleme c'est que ma declaration permet pas que mes variable s'initalise lors de add.exe 1 2

je sais pas comment tu ferais toi! pour la deuxieme solution se sera vraimen en dernier recours!
0
sebsauvage Messages postés 32893 Date d'inscription mercredi 29 août 2001 Statut Modérateur Dernière intervention 21 octobre 2019 15 659
25 févr. 2006 à 18:10
Je n'ai pas pratiqué TurboPascal, mais je suis certains qu'il y a des instructions qui permettent de lire les paramètres de la ligne de commande.
0
Je vais continuer a chercher ! merci a toi
0
Chrisix Messages postés 60 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 3 décembre 2008 60
19 avril 2006 à 10:48
coucou !

sous turbo pascal tu récupères les parametres avec paramcount() et paramstr(n)

ca donne :

uses dos;
begin
for i:=1 to paramcount do begin
writeln("param ',i,' = ',paramstr(i));
end.

Bon courage
0