unit convertHTML;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, StrUtils;

function HTMLtoUTF8 (HTML: string): string;
procedure HTML2UTF8 (var s: String);

procedure UTF2HTML (var s : string);
function UTFtoHTML (utf8: string) : string;

implementation

type
  THTMLrec = record
    HTML,ch: String;
  end;

const
HTMLrec: array of THTMLrec = (
(HTML: '&';Ch: '&'),
//latin
(HTML: 'À';Ch: 'À'),
(HTML: 'Á';Ch: 'Á'),
(HTML: 'Â';Ch: 'Â'),
(HTML: 'Ã';Ch: 'Ã'),
(HTML: 'Ä';Ch: 'Ä'),
(HTML: 'Å';Ch: 'Å'),
(HTML: 'Æ';Ch: 'Æ'),
(HTML: 'Ç';Ch: 'Ç'),
(HTML: 'È';Ch: 'È'),
(HTML: 'É';Ch: 'É'),
(HTML: 'Ê';Ch: 'Ê'),
(HTML: 'Ë';Ch: 'Ë'),
(HTML: '&Lgrave;';Ch: 'Ì'),
(HTML: 'Ĺ';Ch: 'Ĺ'),
(HTML: '&Lcirc;';Ch: 'Î'),
(HTML: '&Luml;';Ch: 'Ï'),
(HTML: 'Ð';Ch: 'Ð'),
(HTML: 'Ñ';Ch: 'Ñ'),
(HTML: 'Ò';Ch: 'Ò'),
(HTML: 'Ó';Ch: 'Ó'),
(HTML: 'Ô';Ch: 'Ô'),
(HTML: 'Õ';Ch: 'Õ'),
(HTML: 'Ö';Ch: 'Ö'),
(HTML: 'Ø';Ch: 'Ø'),
(HTML: 'Ù';Ch: 'Ù'),
(HTML: 'Ú';Ch: 'Ú'),
(HTML: 'Û';Ch: 'Û'),
(HTML: 'Ü';Ch: 'Ü'),
(HTML: 'Ý';Ch: 'Ý'),
(HTML: 'Þ';Ch: 'Þ'),
(HTML: 'ß';Ch: 'ß'),
(HTML: 'à';Ch: 'à'),
(HTML: 'á';Ch: 'á'),
(HTML: 'â';Ch: 'â'),
(HTML: 'ã';Ch: 'ã'),
(HTML: 'ä';Ch: 'ä'),
(HTML: 'å';Ch: 'å'),
(HTML: 'æ';Ch: 'æ'),
(HTML: 'ç';Ch: 'ç'),
(HTML: 'è';Ch: 'è'),
(HTML: 'é';Ch: 'é'),
(HTML: 'ê';Ch: 'ê'),
(HTML: 'ë';Ch: 'ë'),
(HTML: 'ì';Ch: 'ì'),
(HTML: 'í';Ch: 'í'),
(HTML: 'î';Ch: 'î'),
(HTML: 'ï';Ch: 'ï'),
(HTML: 'ð';Ch: 'ð'),
(HTML: 'ñ';Ch: 'ñ'),
(HTML: 'ò';Ch: 'ò'),
(HTML: 'ó';Ch: 'ó'),
(HTML: 'ô';Ch: 'ô'),
(HTML: 'õ';Ch: 'õ'),
(HTML: 'ö';Ch: 'ö'),
(HTML: 'ø';Ch: 'ø'),
(HTML: 'ù';Ch: 'ù'),
(HTML: 'ú';Ch: 'ú'),
(HTML: 'û';Ch: 'û'),
(HTML: 'ü';Ch: 'ü'),
(HTML: 'ý';Ch: 'ý'),
(HTML: 'þ';Ch: 'þ'),
(HTML: 'ÿ';Ch: 'ÿ'),
(HTML: 'Ā';Ch: 'Ā'),
(HTML: 'ā';Ch: 'ā'),
(HTML: 'Ă';Ch: 'Ă'),
(HTML: 'ă';Ch: 'ă'),
(HTML: 'Ą';Ch: 'Ą'),
(HTML: 'ą';Ch: 'ą'),
(HTML: 'Ć';Ch: 'Ć'),
(HTML: 'ć';Ch: 'ć'),
(HTML: 'Ĉ';Ch: 'Ĉ'),
(HTML: 'ĉ';Ch: 'ĉ'),
(HTML: 'Ċ';Ch: 'Ċ'),
(HTML: 'ċ';Ch: 'ċ'),
(HTML: 'Č';Ch: 'Č'),
(HTML: 'č';Ch: 'č'),
(HTML: 'Ď';Ch: 'Ď'),
(HTML: 'ď';Ch: 'ď'),
(HTML: 'Đ';Ch: 'Đ'),
(HTML: 'đ';Ch: 'đ'),
(HTML: 'Ē';Ch: 'Ē'),
(HTML: 'ē';Ch: 'ē'),
(HTML: 'Ė';Ch: 'Ė'),
(HTML: 'ė';Ch: 'ė'),
(HTML: 'Ę';Ch: 'Ę'),
(HTML: 'ę';Ch: 'ę'),
(HTML: 'Ě';Ch: 'Ě'),
(HTML: 'ě';Ch: 'ě'),
(HTML: 'Ĝ';Ch: 'Ĝ'),
(HTML: 'ĝ';Ch: 'ĝ'),
(HTML: 'Ğ';Ch: 'Ğ'),
(HTML: 'ğ';Ch: 'ğ'),
(HTML: 'Ġ';Ch: 'Ġ'),
(HTML: 'ġ';Ch: 'ġ'),
(HTML: 'Ģ';Ch: 'Ģ'),
(HTML: 'Ĥ';Ch: 'Ĥ'),
(HTML: 'ĥ';Ch: 'ĥ'),
(HTML: 'Ħ';Ch: 'Ħ'),
(HTML: 'ħ';Ch: 'ħ'),
(HTML: 'Ĩ';Ch: 'Ĩ'),
(HTML: 'ĩ';Ch: 'ĩ'),
(HTML: 'Ī';Ch: 'Ī'),
(HTML: 'ī';Ch: 'ī'),
(HTML: 'Į';Ch: 'Į'),
(HTML: 'į';Ch: 'į'),
(HTML: 'İ';Ch: 'İ'),
(HTML: 'ı';Ch: 'ı'),
(HTML: 'IJ';Ch: 'IJ'),
(HTML: 'ij';Ch: 'ij'),
(HTML: 'Ĵ';Ch: 'Ĵ'),
(HTML: 'ĵ';Ch: 'ĵ'),
(HTML: 'Ķ';Ch: 'Ķ'),
(HTML: 'ķ';Ch: 'ķ'),
(HTML: 'ĸ';Ch: 'ĸ'),
(HTML: 'ĺ';Ch: 'ĺ'),
(HTML: 'Ļ';Ch: 'Ļ'),
(HTML: 'ļ';Ch: 'ļ'),
(HTML: 'Ľ';Ch: 'Ľ'),
(HTML: 'ľ';Ch: 'ľ'),
(HTML: 'Ŀ';Ch: 'Ŀ'),
(HTML: 'ŀ';Ch: 'ŀ'),
(HTML: 'Ł';Ch: 'Ł'),
(HTML: 'ł';Ch: 'ł'),
(HTML: 'Ń';Ch: 'Ń'),
(HTML: 'ń';Ch: 'ń'),
(HTML: 'Ņ';Ch: 'Ņ'),
(HTML: 'ņ';Ch: 'ņ'),
(HTML: 'Ň';Ch: 'Ň'),
(HTML: 'ň';Ch: 'ň'),
(HTML: 'ʼn';Ch: 'ʼn'),
(HTML: 'Ŋ';Ch: 'Ŋ'),
(HTML: 'ŋ';Ch: 'ŋ'),
(HTML: 'Ō';Ch: 'Ō'),
(HTML: 'ō';Ch: 'ō'),
(HTML: 'Ő';Ch: 'Ő'),
(HTML: 'ő';Ch: 'ő'),
(HTML: 'Œ';Ch: 'Œ'),
(HTML: 'œ';Ch: 'œ'),
(HTML: 'Ŕ';Ch: 'Ŕ'),
(HTML: 'ŕ';Ch: 'ŕ'),
(HTML: 'Ŗ';Ch: 'Ŗ'),
(HTML: 'ŗ';Ch: 'ŗ'),
(HTML: 'Ř';Ch: 'Ř'),
(HTML: 'ř';Ch: 'ř'),
(HTML: 'Ś';Ch: 'Ś'),
(HTML: 'ś';Ch: 'ś'),
(HTML: 'Ŝ';Ch: 'Ŝ'),
(HTML: 'ŝ';Ch: 'ŝ'),
(HTML: 'Ş';Ch: 'Ş'),
(HTML: 'ş';Ch: 'ş'),
(HTML: 'Š';Ch: 'Š'),
(HTML: 'š';Ch: 'š'),
(HTML: 'Ţ';Ch: 'Ţ'),
(HTML: 'ţ';Ch: 'ţ'),
(HTML: 'Ť';Ch: 'Ť'),
(HTML: 'ť';Ch: 'ť'),
(HTML: 'Ŧ';Ch: 'Ŧ'),
(HTML: 'ŧ';Ch: 'ŧ'),
(HTML: 'Ũ';Ch: 'Ũ'),
(HTML: 'ũ';Ch: 'ũ'),
(HTML: 'Ū';Ch: 'Ū'),
(HTML: 'ū';Ch: 'ū'),
(HTML: 'Ŭ';Ch: 'Ŭ'),
(HTML: 'ŭ';Ch: 'ŭ'),
(HTML: 'Ů';Ch: 'Ů'),
(HTML: 'ů';Ch: 'ů'),
(HTML: 'Ű';Ch: 'Ű'),
(HTML: 'ű';Ch: 'ű'),
(HTML: 'Ų';Ch: 'Ų'),
(HTML: 'ų';Ch: 'ų'),
(HTML: 'Ŵ';Ch: 'Ŵ'),
(HTML: 'ŵ';Ch: 'ŵ'),
(HTML: 'Ŷ';Ch: 'Ŷ'),
(HTML: 'ŷ';Ch: 'ŷ'),
(HTML: 'Ÿ';Ch: 'Ÿ'),
(HTML: 'Ź';Ch: 'Ź'),
(HTML: 'ź';Ch: 'ź'),
(HTML: 'Ż';Ch: 'Ż'),
(HTML: 'ż';Ch: 'ż'),
(HTML: 'Ž';Ch: 'Ž'),
(HTML: 'ž';Ch: 'ž'),
// currency
(HTML: '€';Ch: '€'),
(HTML: '$';Ch: '$'),
(HTML: '¢';Ch: '¢'),
(HTML: '£';Ch: '£'),
(HTML: '¤';Ch: '¤'),
(HTML: '¥';Ch: '¥'),
// punctuation
(HTML: '"';Ch: '"'),
//(HTML: ''';Ch: ''''),
(HTML: '«';Ch: '«'),
(HTML: '»';Ch: '»'),
(HTML: '‘';Ch: '‘'),
(HTML: '’';Ch: '’'),
(HTML: '‚';Ch: '‚'),
(HTML: '“';Ch: '“'),
(HTML: '”';Ch: '”'),
(HTML: '„';Ch: '„'),
(HTML: '‹';Ch: '‹'),
(HTML: '›';Ch: '›'),
(HTML: '¡';Ch: '¡'),
(HTML: '¦';Ch: '¦'),
(HTML: '§';Ch: '§'),
(HTML: '¨';Ch: '¨'),
(HTML: 'ª';Ch: 'ª'),
(HTML: '¬';Ch: '¬'),
(HTML: '­';Ch: '­'),
(HTML: '¯';Ch: '¯'),
(HTML: '²';Ch: '²'),
(HTML: '³';Ch: '³'),
(HTML: '´';Ch: '´'),
(HTML: 'µ';Ch: 'µ'),
(HTML: '¶';Ch: '¶'),
(HTML: '·';Ch: '·'),
(HTML: '¸';Ch: '¸'),
(HTML: '¹';Ch: '¹'),
(HTML: 'º';Ch: 'º'),
(HTML: '¿';Ch: '¿'),
(HTML: '‐';Ch: '‐'),
(HTML: '–';Ch: '–'),
(HTML: '—';Ch: '—'),
(HTML: '―';Ch: '―'),
(HTML: '‖';Ch: '‖'),
(HTML: '†';Ch: '†'),
(HTML: '‡';Ch: '‡'),
(HTML: '•';Ch: '•'),
(HTML: '‥';Ch: '‥'),
(HTML: '…';Ch: '…'),
(HTML: '&;';Ch: '‰'),
(HTML: '‱';Ch: '‱'),
(HTML: '′';Ch: '′'),
(HTML: '″';Ch: '″'),
(HTML: '‴';Ch: '‴'),
(HTML: '‵';Ch: '‵'),
(HTML: '‾';Ch: '‾'),
(HTML: '⁁';Ch: '⁁'),
(HTML: '⁃';Ch: '⁃'),
(HTML: '⁄';Ch: '⁄'),
(HTML: '⁏';Ch: '⁏'),
(HTML: '⁗';Ch: '⁗'),
// misc
(HTML: '©';Ch: '©'),
(HTML: '®';Ch: '®'),
(HTML: '™';Ch: '™'),
(HTML: ' ';Ch: #$C2#$A0),
(HTML: '☎';Ch: '☎'),
(HTML: '♀';Ch: '♀'),
(HTML: '♂';Ch: '♂'),
(HTML: '@';Ch: '@'),
(HTML: 'ℂ';Ch: 'ℂ'),
(HTML: '℅';Ch: '℅'),
(HTML: 'ℊ';Ch: 'ℊ'),
(HTML: 'ℋ';Ch: 'ℋ'),
(HTML: 'ℌ';Ch: 'ℌ'),
(HTML: 'ℍ';Ch: 'ℍ'),
(HTML: 'ℎ';Ch: 'ℎ'),
(HTML: 'ℏ';Ch: 'ℏ'),
(HTML: 'ℐ';Ch: 'ℐ'),
(HTML: 'ℑ';Ch: 'ℑ'),
(HTML: 'ℒ';Ch: 'ℒ'),
(HTML: 'ℓ';Ch: 'ℓ'),
(HTML: 'ℕ';Ch: 'ℕ'),
(HTML: '№';Ch: '№'),
(HTML: '℗';Ch: '℗'),
(HTML: '℘';Ch: '℘'),
(HTML: 'ℙ';Ch: 'ℙ'),
(HTML: 'ℚ';Ch: 'ℚ'),
(HTML: 'ℛ';Ch: 'ℛ'),
(HTML: 'ℜ';Ch: 'ℜ'),
(HTML: 'ℝ';Ch: 'ℝ'),
(HTML: '℞';Ch: '℞'),
(HTML: 'ℤ';Ch: 'ℤ'),
(HTML: '℧';Ch: '℧'),
(HTML: 'ℨ';Ch: 'ℨ'),
(HTML: '℩';Ch: '℩'),
(HTML: 'ℬ';Ch: 'ℬ'),
(HTML: 'ℭ';Ch: 'ℭ'),
(HTML: 'ℯ';Ch: 'ℯ'),
(HTML: 'ℰ';Ch: 'ℰ'),
(HTML: 'ℱ';Ch: 'ℱ'),
(HTML: 'ℳ';Ch: 'ℳ'),
(HTML: 'ℴ';Ch: 'ℴ'),
(HTML: 'ℵ';Ch: 'ℵ'),
(HTML: 'ℶ';Ch: 'ℶ'),
(HTML: 'ℷ';Ch: 'ℷ'),
(HTML: 'ℸ';Ch: 'ℸ'),
(HTML: 'ⅅ';Ch: 'ⅅ'),
(HTML: 'ⅆ';Ch: 'ⅆ'),
(HTML: 'ⅇ';Ch: 'ⅇ'),
(HTML: 'ⅈ';Ch: 'ⅈ'),
(HTML: '★';Ch: '★'),
(HTML: '☆';Ch: '☆'),
(HTML: '◊';Ch: '◊'),
(HTML: '♪';Ch: '♪'),
(HTML: '♭';Ch: '♭'),
(HTML: '♮';Ch: '♮'),
(HTML: '♯';Ch: '♯'),
(HTML: '✓';Ch: '✓'),
(HTML: '✗';Ch: '✗'),
(HTML: '✠';Ch: '✠'),
(HTML: '✶';Ch: '✶'),
(HTML: '❘';Ch: '❘'),
(HTML: '❲';Ch: '❲'),
(HTML: '❳';Ch: '❳'),
//fractions
(HTML: '¼';Ch: '¼'),
(HTML: '½';Ch: '½'),
(HTML: '¾';Ch: '¾'),
(HTML: '⅓';Ch: '⅓'),
(HTML: '⅔';Ch: '⅔'),
(HTML: '⅕';Ch: '⅕'),
(HTML: '⅖';Ch: '⅖'),
(HTML: '⅗';Ch: '⅗'),
(HTML: '⅘';Ch: '⅘'),
(HTML: '⅙';Ch: '⅙'),
(HTML: '⅚';Ch: '⅚'),
(HTML: '⅛';Ch: '⅛'),
(HTML: '⅜';Ch: '⅜'),
(HTML: '⅝';Ch: '⅝'),
(HTML: '⅞';Ch: '⅞'),
// math
(HTML: '÷';Ch: '÷'),
(HTML: '≠';Ch: '≠'),
(HTML: '±';Ch: '±'),
(HTML: '¬';Ch: '¬'),
(HTML: '&lt;';Ch: '<'),
(HTML: '&gt;';Ch: '>'),
(HTML: '&deg;';Ch: '°'),
(HTML: '&sup1;';Ch: '¹'),
(HTML: '&sup2;';Ch: '²'),
(HTML: '&sup3;';Ch: '³'),
(HTML: '&fnof;';Ch: 'ƒ'),
(HTML: '&percnt;';Ch: '%'),
(HTML: '&permil;';Ch: '‰'),
(HTML: '&pertenk;';Ch: '‱'),
(HTML: '&forall;';Ch: '∀'),
(HTML: '&comp;';Ch: '∁'),
(HTML: '&part;';Ch: '∂'),
(HTML: '&exist;';Ch: '∃'),
(HTML: '&nexist;';Ch: '∄'),
(HTML: '&empty;';Ch: '∅'),
(HTML: '&nabla;';Ch: '∇'),
(HTML: '&isin;';Ch: '∈'),
(HTML: '&notin;';Ch: '∉'),
(HTML: '&ni;';Ch: '∋'),
(HTML: '&notni;';Ch: '∌'),
(HTML: '&prod;';Ch: '∏'),
(HTML: '&coprod;';Ch: '∐'),
(HTML: '&sum;';Ch: '∑'),
(HTML: '&mnplus;';Ch: '∓'),
(HTML: '&plusdo;';Ch: '∔'),
(HTML: '&setminus;';Ch: '∖'),
(HTML: '&lowast;';Ch: '∗'),
(HTML: '&compfn;';Ch: '∘'),
(HTML: '&radic;';Ch: '√'),
(HTML: '&prop;';Ch: '∝'),
(HTML: '&infin;';Ch: '∞'),
(HTML: '&angrt;';Ch: '∟'),
(HTML: '&ang;';Ch: '∠'),
(HTML: '&angmsd;';Ch: '∡'),
(HTML: '&angsph;';Ch: '∢'),
(HTML: '&mid;';Ch: '∣'),
(HTML: '&nmid;';Ch: '∤'),
(HTML: '&parallel;';Ch: '∥'),
(HTML: '&npar;';Ch: '∦'),
(HTML: '&and;';Ch: '∧'),
(HTML: '&or;';Ch: '∨'),
(HTML: '&cap;';Ch: '∩'),
(HTML: '&cup;';Ch: '∪'),
(HTML: '&int;';Ch: '∫'),
(HTML: '&Int;';Ch: '∬'),
(HTML: '&iiint;';Ch: '∭'),
(HTML: '&conint;';Ch: '∮'),
(HTML: '&Conint;';Ch: '∯'),
(HTML: '&Cconint;';Ch: '∰'),
(HTML: '&cwint;';Ch: '∱'),
(HTML: '&cwconint;';Ch: '∲'),
(HTML: '&awconint;';Ch: '∳'),
(HTML: '&there4;';Ch: '∴'),
(HTML: '&because;';Ch: '∵'),
(HTML: '&ratio;';Ch: '∶'),
(HTML: '&Colon;';Ch: '∷'),
(HTML: '&minusd;';Ch: '∸'),
(HTML: '&mDDot;';Ch: '∺'),
(HTML: '&homtht;';Ch: '∻'),
(HTML: '&sim;';Ch: '∼'),
(HTML: '&bsim;';Ch: '∽'),
(HTML: '&ac;';Ch: '∾'),
(HTML: '&acd;';Ch: '∿'),
(HTML: '&wreath;';Ch: '≀'),
(HTML: '&nsim;';Ch: '≁'),
(HTML: '&esim;';Ch: '≂'),
(HTML: '&sime;';Ch: '≃'),
(HTML: '&nsime;';Ch: '≄'),
(HTML: '&cong;';Ch: '≅'),
(HTML: '&simne;';Ch: '≆'),
(HTML: '&ncong;';Ch: '≇'),
(HTML: '&asymp;';Ch: '≈'),
(HTML: '&nap;';Ch: '≉'),
(HTML: '&approxeq;';Ch: '≊'),
(HTML: '&apid;';Ch: '≋'),
(HTML: '&bcong;';Ch: '≌'),
(HTML: '&asympeq;';Ch: '≍'),
(HTML: '&bump;';Ch: '≎'),
(HTML: '&bumpe;';Ch: '≏'),
(HTML: '&esdot;';Ch: '≐'),
(HTML: '&eDot;';Ch: '≑'),
(HTML: '&efDot;';Ch: '≒'),
(HTML: '&erDot;';Ch: '≓'),
(HTML: '&colone;';Ch: '≔'),
(HTML: '&ecolon;';Ch: '≕'),
(HTML: '&ecir;';Ch: '≖'),
(HTML: '&cire;';Ch: '≗'),
(HTML: '&wedgeq;';Ch: '≙'),
(HTML: '&veeeq;';Ch: '≚'),
(HTML: '&trie;';Ch: '≜'),
(HTML: '&equest;';Ch: '≟'),
(HTML: '&equiv;';Ch: '≡'),
(HTML: '&nequiv;';Ch: '≢'),
(HTML: '&le;';Ch: '≤'),
(HTML: '&ge;';Ch: '≥'),
(HTML: '&lE;';Ch: '≦'),
(HTML: '&gE;';Ch: '≧'),
(HTML: '&lnE;';Ch: '≨'),
(HTML: '&gnE;';Ch: '≩'),
(HTML: '&Lt;';Ch: '≪'),
(HTML: '&Gt;';Ch: '≫'),
(HTML: '&between;';Ch: '≬'),
(HTML: '&NotCupCap;';Ch: '≭'),
(HTML: '&nlt;';Ch: '≮'),
(HTML: '&ngt;';Ch: '≯'),
(HTML: '&nle;';Ch: '≰'),
(HTML: '&nge;';Ch: '≱'),
(HTML: '&lsim;';Ch: '≲'),
(HTML: '&gsim;';Ch: '≳'),
(HTML: '&nlsim;';Ch: '≴'),
(HTML: '&ngsim;';Ch: '≵'),
(HTML: '&lg;';Ch: '≶'),
(HTML: '&gl;';Ch: '≷'),
(HTML: '&ntlg;';Ch: '≸'),
(HTML: '&ntgl;';Ch: '≹'),
(HTML: '&pr;';Ch: '≺'),
(HTML: '&sc;';Ch: '≻'),
(HTML: '&prcue;';Ch: '≼'),
(HTML: '&sccue;';Ch: '≽'),
(HTML: '&prsim;';Ch: '≾'),
(HTML: '&scsim;';Ch: '≿'),
(HTML: '&npr;';Ch: '⊀'),
(HTML: '&nsc;';Ch: '⊁'),
(HTML: '&sub;';Ch: '⊂'),
(HTML: '&sup;';Ch: '⊃'),
(HTML: '&nsub;';Ch: '⊄'),
(HTML: '&nsup;';Ch: '⊅'),
(HTML: '&sube;';Ch: '⊆'),
(HTML: '&supe;';Ch: '⊇'),
(HTML: '&nsube;';Ch: '⊈'),
(HTML: '&nsupe;';Ch: '⊉'),
(HTML: '&subne;';Ch: '⊊'),
(HTML: '&supne;';Ch: '⊋'),
(HTML: '&cupdot;';Ch: '⊍'),
(HTML: '&uplus;';Ch: '⊎'),
(HTML: '&sqsub;';Ch: '⊏'),
(HTML: '&sqsup;';Ch: '⊐'),
(HTML: '&sqsube;';Ch: '⊑'),
(HTML: '&sqsupe;';Ch: '⊒'),
(HTML: '&sqcap;';Ch: '⊓'),
(HTML: '&sqcup;';Ch: '⊔'),
(HTML: '&oplus;';Ch: '⊕'),
(HTML: '&ominus;';Ch: '⊖'),
(HTML: '&otimes;';Ch: '⊗'),
(HTML: '&osol;';Ch: '⊘'),
(HTML: '&odot;';Ch: '⊙'),
(HTML: '&ocir;';Ch: '⊚'),
(HTML: '&oast;';Ch: '⊛'),
(HTML: '&odash;';Ch: '⊝'),
(HTML: '&plusb;';Ch: '⊞'),
(HTML: '&minusb;';Ch: '⊟'),
(HTML: '&timesb;';Ch: '⊠'),
(HTML: '&sdotb;';Ch: '⊡'),
(HTML: '&vdash;';Ch: '⊢'),
(HTML: '&dashv;';Ch: '⊣'),
(HTML: '&top;';Ch: '⊤'),
(HTML: '&perp;';Ch: '⊥'),
(HTML: '&models;';Ch: '⊧'),
(HTML: '&vDash;';Ch: '⊨'),
(HTML: '&Vdash;';Ch: '⊩'),
(HTML: '&Vvdash;';Ch: '⊪'),
(HTML: '&VDash;';Ch: '⊫'),
(HTML: '&nvdash;';Ch: '⊬'),
(HTML: '&nvDash;';Ch: '⊭'),
(HTML: '&nVdash;';Ch: '⊮'),
(HTML: '&nVDash;';Ch: '⊯'),
(HTML: '&prurel;';Ch: '⊰'),
(HTML: '&vltri;';Ch: '⊲'),
(HTML: '&vrtri;';Ch: '⊳'),
(HTML: '&ltrie;';Ch: '⊴'),
(HTML: '&rtrie;';Ch: '⊵'),
(HTML: '&origof;';Ch: '⊶'),
(HTML: '&imof;';Ch: '⊷'),
(HTML: '&mumap;';Ch: '⊸'),
(HTML: '&hercon;';Ch: '⊹'),
(HTML: '&intcal;';Ch: '⊺'),
(HTML: '&veebar;';Ch: '⊻'),
(HTML: '&barvee;';Ch: '⊽'),
(HTML: '&angrtvb;';Ch: '⊾'),
(HTML: '&lrtri;';Ch: '⊿'),
(HTML: '&xwedge;';Ch: '⋀'),
(HTML: '&xvee;';Ch: '⋁'),
(HTML: '&xcap;';Ch: '⋂'),
(HTML: '&xcup;';Ch: '⋃'),
(HTML: '&diamond;';Ch: '⋄'),
(HTML: '&sdot;';Ch: '⋅'),
(HTML: '&Star;';Ch: '⋆'),
(HTML: '&divonx;';Ch: '⋇'),
(HTML: '&bowtie;';Ch: '⋈'),
(HTML: '&ltimes;';Ch: '⋉'),
(HTML: '&rtimes;';Ch: '⋊'),
(HTML: '&lthree;';Ch: '⋋'),
(HTML: '&rthree;';Ch: '⋌'),
(HTML: '&bsime;';Ch: '⋍'),
(HTML: '&cuvee;';Ch: '⋎'),
(HTML: '&cuwed;';Ch: '⋏'),
(HTML: '&Sub;';Ch: '⋐'),
(HTML: '&Sup;';Ch: '⋑'),
(HTML: '&Cap;';Ch: '⋒'),
(HTML: '&Cup;';Ch: '⋓'),
(HTML: '&fork;';Ch: '⋔'),
(HTML: '&epar;';Ch: '⋕'),
(HTML: '&ltdot;';Ch: '⋖'),
(HTML: '&gtdot;';Ch: '⋗'),
(HTML: '&Ll;';Ch: '⋘'),
(HTML: '&Gg;';Ch: '⋙'),
(HTML: '&leg;';Ch: '⋚'),
(HTML: '&gel;';Ch: '⋛'),
(HTML: '&cuepr;';Ch: '⋞'),
(HTML: '&cuesc;';Ch: '⋟'),
(HTML: '&nprcue;';Ch: '⋠'),
(HTML: '&nsccue;';Ch: '⋡'),
(HTML: '&nsqsube;';Ch: '⋢'),
(HTML: '&nsqsupe;';Ch: '⋣'),
(HTML: '&lnsim;';Ch: '⋦'),
(HTML: '&gnsim;';Ch: '⋧'),
(HTML: '&prnsim;';Ch: '⋨'),
(HTML: '&scnsim;';Ch: '⋩'),
(HTML: '&nltri;';Ch: '⋪'),
(HTML: '&nrtri;';Ch: '⋫'),
(HTML: '&nltrie;';Ch: '⋬'),
(HTML: '&nrtrie;';Ch: '⋭'),
(HTML: '&vellip;';Ch: '⋮'),
(HTML: '&ctdot;';Ch: '⋯'),
(HTML: '&utdot;';Ch: '⋰'),
(HTML: '&dtdot;';Ch: '⋱'),
(HTML: '&disin;';Ch: '⋲'),
(HTML: '&isinsv;';Ch: '⋳'),
(HTML: '&isins;';Ch: '⋴'),
(HTML: '&isindot;';Ch: '⋵'),
(HTML: '&notinvc;';Ch: '⋶'),
(HTML: '&notinvb;';Ch: '⋷'),
(HTML: '&isinE;';Ch: '⋹'),
(HTML: '&nisd;';Ch: '⋺'),
(HTML: '&xnis;';Ch: '⋻'),
(HTML: '&nis;';Ch: '⋼'),
(HTML: '&notnivc;';Ch: '⋽'),
(HTML: '&notnivb;';Ch: '⋾'),
(HTML: '&lceil;';Ch: '⌈'),
(HTML: '&rceil;';Ch: '⌉'),
(HTML: '&lfloor;';Ch: '⌊'),
(HTML: '&rfloor;';Ch: '⌋'),
(HTML: '&lang;';Ch: '〈'),
(HTML: '&rang;';Ch: '〉'),
// greek
(HTML: '&Alpha;';Ch: 'Α'),
(HTML: '&Beta;';Ch: 'Β'),
(HTML: '&Gamma;';Ch: 'Γ'),
(HTML: '&Delta;';Ch: 'Δ'),
(HTML: '&Epsilon;';Ch: 'Ε'),
(HTML: '&Zeta;';Ch: 'Ζ'),
(HTML: '&Eta;';Ch: 'Η'),
(HTML: '&Theta;';Ch: 'Θ'),
(HTML: '&Iota;';Ch: 'Ι'),
(HTML: '&Kappa;';Ch: 'Κ'),
(HTML: '&Lambda;';Ch: 'Λ'),
(HTML: '&Mu;';Ch: 'Μ'),
(HTML: '&Nu;';Ch: 'Ν'),
(HTML: '&Xi;';Ch: 'Ξ'),
(HTML: '&Omicron;';Ch: 'Ο'),
(HTML: '&Pi;';Ch: 'Π'),
(HTML: '&Rho;';Ch: 'Ρ'),
(HTML: '&Sigma;';Ch: 'Σ'),
(HTML: '&Tau;';Ch: 'Τ'),
(HTML: '&Upsilon;';Ch: 'Υ'),
(HTML: '&Phi;';Ch: 'Φ'),
(HTML: '&Chi;';Ch: 'Χ'),
(HTML: '&Psi;';Ch: 'Ψ'),
(HTML: '&Omega;';Ch: 'Ω'),
(HTML: '&alpha;';Ch: 'α'),
(HTML: '&beta;';Ch: 'β'),
(HTML: '&gamma;';Ch: 'γ'),
(HTML: '&delta;';Ch: 'δ'),
(HTML: '&epsilon;';Ch: 'ε'),
(HTML: '&zeta;';Ch: 'ζ'),
(HTML: '&eta;';Ch: 'η'),
(HTML: '&theta;';Ch: 'θ'),
(HTML: '&iota;';Ch: 'ι'),
(HTML: '&kappa;';Ch: 'κ'),
(HTML: '&lambda;';Ch: 'λ'),
(HTML: '&mu;';Ch: 'μ'),
(HTML: '&nu;';Ch: 'ν'),
(HTML: '&xi;';Ch: 'ξ'),
(HTML: '&omicron;';Ch: 'ο'),
(HTML: '&pi;';Ch: 'π'),
(HTML: '&rho;';Ch: 'ρ'),
(HTML: '&sigmaf;';Ch: 'ς'),
(HTML: '&sigma;';Ch: 'σ'),
(HTML: '&tau;';Ch: 'τ'),
(HTML: '&upsilon;';Ch: 'υ'),
(HTML: '&phi;';Ch: 'φ'),
(HTML: '&chi;';Ch: 'χ'),
(HTML: '&psi;';Ch: 'ψ'),
(HTML: '&omega;';Ch: 'ω'),
(HTML: '&thetasym;';Ch: 'ϑ'),
(HTML: '&upsih;';Ch: 'ϒ'),
(HTML: '&piv;';Ch: 'ϖ')
); // HTMLrec


function HTMLtoUTF8 (HTML: string): string;
begin
  HTML2UTF8(HTML);
  result := HTML;
end;

procedure HTML2UTF8 (var s: String);
var p,q, i : integer;
tmp : string;
begin
p := 0;
repeat
p := posEx ('&',s,p+1);
if p = 0 then exit;
q := PosEx(';',s,p+1);
if q > p then
   begin
    tmp :=  copy (s,p,q-p+1);
    for i := 0 to high(HTMLrec) do
      begin
        if tmp= HTMLrec[i].HTML then
           begin
            delete (s,p,length(HTMLrec[i].html));
            insert(HTMLrec[i].ch,s,p);
            break;
           end;  // if
      end; // for i
   end;// q> p
  until p = 0;
end;

procedure UTF2HTML (var s : string);
var i,p : Integer;
begin
  for i := low(HTMLrec) to high(HTMLrec) do
    begin
      repeat
        p := pos (HTMLrec[i].ch,s);
        if p > 0 then
           begin
             delete (s,p,length(HTMLrec[i].ch));
             insert (HTMLrec[i].HTML,s,p);
           end;
      until p=0;
    end; // i
end;

function UTFtoHTML (utf8: string) : string;
begin
UTF2HTML(utf8);
result := utf8;
end;

end.