On Monday 03 June 2013 23:49:07 you wrote:
> Jonas,
>
> It's not happening. I have a 700kb image base64 encoded in a file called
> orangesky.res. I never use "procedure TestResource;" and yet the exe is
> 700kb larger. The only way to get rid of that extra 700k is to delete the
> procedure. The smart linking option or using strip do not remove the 700k.
>
> { TestResource procedure is not called from any code }
> procedure TestResource;
> const
> Data = {$i orangesky.res}; // 700kb constant is always built into the app
This will include binary data???
Did I miss something?
How can you find out the legth of the included data?
> var
> S: string;
> I: Integer;
> begin
> S := Data;
> for I := 1 to 10 do
> WriteLn(S[I * 10]);
> end;
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
