Paramètres en pascal

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 094 fois - Téléchargée 40 fois

Contenu du snippet

Ce code est un exemple sur les paramètres en pascal. Exemple: vous voulez lire un fichier texte en dos (je sais, la commande type). Dans la fenêtre Dos, vous entrez :
c:\textreader.exe c:\test.txt
Dans cette commande, test.txt est le paramètre. Alors, le programme va ouvrir test.txt.
Je sais que ce programme est inutile mais je l'ai mis pour ceux qui aurais besoin des paramètres.

Fonction paramstr(n)=retourn le n ième paramètre sous forme de chaîne

Source / Exemple :


program textreader;
uses crt,dos;
var chemin:string;
    tex:text;
    buffer:string;
begin
clrscr;
textcolor(9);  -   Aps 2002');
{écrit le paramètre}
writeln(paramstr(1));
gotoxy(1,3);
textcolor(7);
{si il y a un paramètre}
if paramstr(1)<>'' then
begin
chemin:=paramstr(1);
end
else
{sinon on demande le chemin}
begin
write('Chemin du fichier texte:');
textcolor(14);
readln(chemin);
end;
writeln('');
assign(tex,chemin);
reset(tex);
textcolor(2);
repeat
readln(tex,buffer);
writeln(buffer);
until eof(tex);
writeln('');
textcolor(7);
write('Pressez une touche . . .');
repeat
until keypressed;
end.

A voir également

Ajouter un commentaire Commentaire
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
C'est déjà le n'ième source sur le sujet et la fonctionc paramstr, mais bon, dès fois il faut aussi répeter les choses...

A l'heure de Delphi, pourquoi encore utiliser le turbo pascal ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.