[fpc-pascal] Concatenating CP Strings

[Martok]

Gah, accidentally removed the comment that said what the actual problem is ;-)

>   ReadLn(f, s);
>   WriteLn(StringCodePage(s));

That prints 1252, which is the DefaultSystemCodePage. At that point, information
loss has already occured, there is no way to fix the CP in user code.
I would expect reading from a file whose codepage I have just set to return
strings in that codepage. Instead, I get the declared codepage of the string.


-- 
Regards,
Martok