[fpc-pascal] HOW TO, PROBLEM read stdin (linux) ??

[TOUZEAU DAVID]

Great many thanks

Wanderlan Santos dos Anjos a écrit :
> program yourprogram;
>
> {$mode objfpc}{$H+}
>
> uses
>  Classes, SysUtils;
> var
>  st: text;
>  s: string;
> begin
>  assign(st,'');
>  reset(st);
>  while not eof(st) do begin // <<<<<<<<--- iterate while not en of file
>    readln(st,s); //<<< read only a line
>    writeln(s);
>  end;
>  close(st); // <<<<<---
> end.
>
>
> -- 
> Att,
>
> Wanderlan Santos dos Anjos
>
> On Nov 24, 2007 8:15 AM, TOUZEAU DAVID <david.touzeau at fr.kaspersky.com 
> <mailto:david.touzeau at fr.kaspersky.com>> wrote:
>
>     Dear
>
>     What is the best way to read into a memory datas from this command.
>
>
>     "/bin/myprogram </home/tests/file.txt "
>
>
>     my test program read only the first line from stdline.
>     What i miss ???
>
>
>     program myprogram;
>
>     {$mode objfpc}{$H+}
>
>     uses
>      Classes, SysUtils;
>     var
>      st: text;
>      s: string;
>     begin
>      assign(st,'');
>      reset(st);
>      readln(st,s);
>
>      writeln(s)
>
>     end.
>
>
>
>     --
>     David Touzeau -------------------------- Linux Ubuntu 7.04 feisty
>     FreePascal-Lazarus,perl,delphi,php artica for postfix management
>     console
>     ( http://www.artica.fr) icq:160018849
>     _______________________________________________
>     fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
>     <mailto:fpc-pascal at lists.freepascal.org>
>     http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
>
>
>

-- 

    * 01.41.39.04.42
    * 06.20.56.74.33
    * ICQ:160018849
    * Skype:dtouzeau

    * Site technique destiné aux entreprises:
      http://entreprises.kaspersky.fr
    * Inscrivez-vous dès maintenant dans l'espace partenaires !
      <http://partners.kaspersky.fr>

(Retrouvez sur ces sites des faqs, tutoriaux, Forums et liens de 
téléchargement de la gamme Buiness Optimal)

 




* *