Delphi заготовки

Функция провеки текста на русские / латинские буквы. возвращает процентное соотношение кирилицы и латиницы

возвращает тип значения  

 TntStr=record
    Fl:real;
    Text:string;
    TextComment:string;
  end;
Fl:real; - процентное соотношение
Text:string; - краткий комментарий
TextComment:string; более подробный

Function GetRusEngText(s:string):TntStr; сам заголовок функции

пример  вывода

Англиских букв 342
Русских букв 64
Знаков 165
Цифр и (мат знаков 0-9,%,/,+,-,*,\)  134
Всего пробелов 193
Всего длина текста 898
Процентное соотношение RUS/ENG = 16%


исходник доступен по ссылки
/download/RusENG.rar