Paramètres en pascal

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_Dalamar)