[fpc-pascal] Concatenating CP Strings

[Martok]

And another one:

var
  f: TextFile;
  s: string;
begin
  AssignFile(f, 'a_file.txt');
  SetTextCodePage(f, 866);
  Reset(f);
  ReadLn(f, s);
  WriteLn(StringCodePage(s));
  readln;
end.

That is rather useless...


Writing anything into the specified codepage works perfectly fine.


-- 
Regards,
Martok