[fpc-devel] FPC 2.3.1 seems a mixed mess with Unicode support

[theo]

You can test this also using the TCharacter class 
http://wiki.lazarus.freepascal.org/Theodp

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:String;
begin
a:= UTF8Encode(WideChar($41)+WideChar($030A)); //Decomposed Å
b:= UTF8Encode(WideChar($212B)); //Å Ångström
c:= UTF8Encode(WideChar($C5)); //Å
if TCharacter.Normalize_NFKC(a+b)=TCharacter.Normalize_NFKC(b+c) then
Caption:='equal '+a+b+' '+b+c else
Caption:='not equal '+a+b+' '+b+c;
end;