Приветствую Вас Гость | RSS

Delphi заготовки

ГлавнаяРегистрация Вход
Суббота, 23.11.2024, 10:12

Меню сайта

Поиск по сайту

Контакты

как написать программу заказ работы на Pascal Заказ работы на Delphi пишите вопросы по Delphi / Pascal ICQ 368-254-335

on-line Консультация Pascal/Delphi

  • Вконтакте

    • МТС Уфа +7 917 74 25 326 мой сайт //netsoftware.ucoz.ru

    Наш опрос

    Оцените мой сайт
    Результаты | Архив опросов
    Всего ответов: 252

    Добавить

    Календарь

    «  Август 2011  »
    ПнВтСрЧтПтСбВс
    1234567
    891011121314
    15161718192021
    22232425262728
    293031

    Полезные ссылки

  • История интернета
  • Интересные факты
  • Переводчик от google
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

    • Теги

    Автор динамически создаваемые Примеры работ публикатор Alpha. draw Обрисовка n-угольника рисуем квадрат рисуем треугольник рисуем шестиугольник Dlina Ugol векторное изображение Угол наклона Pascal ABC PascalABC. Firebird sql программа выполнения скриптов по ра delphi пересечение Одномерный массив Формирование массива в заданных диа Целочисленные массивы Элементы кратные числу Горячие клавиши в Delphi получаем IP адрес Получение слова из строки Процедура выравнивания регистров Спискок знаков препинания Преобразовать строку пример работы со строками cosh sinh tanh delphi заготовки delphi примеры работ Proxy прокси Combobox myInputbox Pascal Mod pascal mod операторы pascalб стандартные опера CSV CSV файл StringGrid TStringGrid задачи матрицы

    Статистика





    Архив записей

    Число on-line

    Поддержка сайта

    Хотите помочь сайту (работой) пишите в аську или контакт
    50 руб.

    yandex 410011013695809
    qiwi 9177425326
    R132677785853
    		 Главная » 2011 » Август » 16 » Кирилица / Латиница
    19:05
    Кирилица / Латиница
    Функция провеки текста на русские / латинские буквы. возвращает процентное соотношение кирилицы и латиницы

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

     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
    Просмотров: 1098 | Добавил: NetSoftWare | Рейтинг: 0.0/0
    Всего комментариев: 0
    Имя *:
    Email *:
    Код *:

    Copyright MyCorp © 2024
    Хостинг от uCoz