On Fri, 18 Jun 2021 18:13:52 +0200, Jean SUZINEAU via fpc-pascal <fpc-pascal@lists.freepascal.org> wrote:
> >function _2d( _i: Integer): String; >begin > Str( _i, _2d); > if Length(_2d) < 2 then _2d:= '0'+_2d; > >end; Thanks, it seems like this gets rid of the Format call, which probably brings in a lot of un-needed stuff. Now the stripped size is 67 kb for me! :-) Strange name of a function, though, is that needed? -- Bo Berglund Developer in Sweden _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
