PARAMÈTRES EN PASCAL

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.

13 avril 2007 01:17:49 :

d