Unicode in Fields - patch not 6.07

1. offizieller Beitrag

    Hi Julian,

    is it possible to include this patch in the next version. We always have to patch the latest version we get, because without it characters line € can't be used in fields

    Thanks

    ---->

    It seems that the not sign arises in WPIOReadRTF in AppendChar, being a subroutine of TWPRTFReader.Parse

    Code:
    if FStack.Destination = rdsFieldStringBuilder then
    begin
    if FStringBuilder <> nil then begin
    FStringBuilder.AppendChar(AnsiChar(aCh));
    end;


    Casting aCh to AnsiChar (3864) results in Char(172) being ¬

    I get the correct output if I replace it with these lines:
    Code:
    if FStack.Destination = rdsFieldStringBuilder then
    begin
    if FStringBuilder <> nil then begin
    if isUnicode then begin
    FStringBuilder.Append(Char(aCh));
    end else
    FStringBuilder.AppendChar(AnsiChar(aCH));
    end;