Konstantin Muenning koko at muenning.com
Tue Nov 20 00:58:13 CET 2001


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;
> S,F : String;
> P : integer;
>  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;

Have a nice day!
Konstantin M√ľnning              ,,,
www.muenning.com              ( o o )                  koko at muenning.com
            Beware of Programmers who carry screwdrivers.
                                    -- Leonard Brandwein
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

More information about the fpc-devel mailing list