--- C:/Users/U7/AppData/Local/Temp/JvRichEditToHtml.pas-revBASE.svn000.tmp.pas Ïí èþë 27 11:53:04 2009 +++ C:/Comps/jvcl/run/JvRichEditToHtml.pas Ïí èþë 27 11:52:18 2009 @@ -211,6 +211,7 @@ inherited Create(AOwner); FCToH := TJvRgbToHtml.Create(Self); FCharToH := TJvStrToHtml.Create(Self); + FHeader := TStringList.Create; FHeader.Add(''); FHeader.Add(' '); @@ -391,7 +392,7 @@ end else begin - if CharInSet(Text[J], ['A'..'Z', 'a'..'z', '0'..'9']) then + if CharIsAlphaNum(Text[J]) then St.Append(Text[J]) else St.Append(CharToHtml(Text[J])); @@ -501,7 +502,7 @@ end else begin - if CharInSet(Text[J], ['A'..'Z', 'a'..'z', '0'..'9']) then + if CharIsAlphaNum(Text[J]) then St.Append(Text[J]) else St.Append(CharToHtml(Text[J]));