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 <[EMAIL PROTECTED]>
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@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
