<http://forum.pspad.com/read.php?f=1&i=7007&t=7006>
----------------------------------------------------------------
Na detekci UTF-8 je treba dostatecny vzorek (dejme tomu 10000 znaku),
provadi se to matematicky. Pokud by byl zajem, poslu zdrojak v Delphi.
Vemi zjednodusene by slo pouzit tohle - pocita se vyskyt jednotlivych
znaku:
case znak of
#138,#141,#154,#193,#200,#201,#204,#207,#211,#217,#218,
#221,#225,#232,#239,#242,#243,#248,#249,#250:
Inc(CountAnsi);
#185,#174,#171:
Inc(CountISO);
#153,#189,#195:
Inc(CountUTF8);
end;
Pak nasleduje vyhodnoceni, ktery pocet zvitezi.
--
PSPad freeware editor http://www.pspad.com
