[fpc-devel]BUGS!

[Konstantin Muenning]

Hi!

I think check83 misses an important test - file "test.jpeg" would be ok
but it is not! See correction below.

On Mon, 19 Nov 2001 Michael.VanCanneyt at Wisa.be wrote:

>program check83;
>
>uses sysutils;
>
>Var
> S,F : String;
> P : integer;
>
>begin
>  While not eof do
>    begin
>    Readln(s);
>    F:=ExtractFilename(S);
>    P:=Pos('.',F);
>    If (length(F)>12) or

        (length(F)>P+3) or

>       (P>9) then
>      Writeln(f,' ',P);
>    end;
>end.

Have a nice day!
Konstantin Münning              ,,,
-------------------------------/'^'\------------------------------------
www.muenning.com              ( o o )                  koko at muenning.com
--------------------------oOOO--(_)--OOOo-------------------------------
            Beware of Programmers who carry screwdrivers.
                                    -- Leonard Brandwein
                               (-O-)
The man who follows the crowd will usually get no further than the crowd.
The man who walks alone is likely to find himself in places no one has
ever been.                          -- Alan Ashley-Pitt