On 03/09/2020 07:19, LacaK via fpc-pascal wrote:
> I would like to have source file in Windows-1250 encoding, where are
> stored literal strings like 'áéíóčž' in Windows-1250 encoding (I share
> this one file between FPC/Lazarus and Delphi 7). Windows-1250 is also
> ANSI code page of my Windows OS. In source file I have:
>
> {$IFDEF FPC}
> {$CODEPAGE cp1250}
> {$ENDIF}
>
> and in Lazarus I have set: File settings / Encoding / CP1250
> (at this point in .pas file are all characters correctly encoded in
> Windows-1250 code page)
>
> When I compile application and run it, string literals (characters with
> accents) are not preserved.
> Is there way how to get it working?
The attached program uses the same environment as Lazarus
(DefaultSystemCodePage forced to UTF-8) and prints the string correctly
for me (under Mac OS X).
Please always provide a compilable program when reporting issues.
Jonas
{$IFDEF FPC}
{$CODEPAGE cp1250}
{$ENDIF}
{$ifdef unix}
uses
cwstring;
{$endif}
var
s: ansistring;
begin
SetMultiByteConversionCodePage(CP_UTF8);
s:='éç';
writeln(s);
end.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
