[Back to TEXTFILE SWAG index] [Back to Main SWAG index] [Original]

    unit textfile;

    INTERFACE

    function  numlines1(n:string):longint;
    function  numlines2(var f:text):longint;

    IMPLEMENTATION

    function numlines1(n:string):longint;
    var
      f:text;
      c:longint;
    begin
      numlines1:=-1;
      assign(f,n);
      {$i-} reset(f); {$i+}
      if(ioresult<>0)then exit;
      c:=0;
      while not eof(f)do
      begin
        readln(f);
        inc(c);
      end;
      numlines1:=c;
      close(f);
    end;

    function numlines2(var f:text):longint;
    var
      c:longint;
    begin
      numlines2:=-1;
      {$i-} close(f); {$i+}
      if(ioresult<>0)then ;
      {$i-} reset(f); {$i+}
      if(ioresult<>0)then exit;
      c:=0;
      while not eof(f)do
      begin
        readln(f);
        inc(c);
      end;
      numlines2:=c;
      close(f);
    end;

    end.

[Back to TEXTFILE SWAG index] [Back to Main SWAG index] [Original]