Hello,
here are results:
...
begin
Writeln('--');
Writeln;
s1 := 'A'; // 1250
s2 := 'Aä'; // 1250
Writeln('s1 = "', s1, '" cp = ', StringCodePage(s1));
Writeln('s2 = "', s2, '" cp = ', StringCodePage(s2));
r1 := AnsiToUTF8(s1); // 65001
r2 := AnsiToUTF8(s2); // 650
Hello,
I tested the program listed below in "Delphi 10.1 Berlin" with the
results shown in the comments.
PK
program Project3;
{$APPTYPE CONSOLE}
{$R *.res}
var
AnsiStrA: AnsiString;
ResultA: AnsiString;
begin
Writeln('Not Initialized');
Writeln(' AnsiStrA: ', StringCodePage(AnsiS
