Delphi заготовки

Delphi. пример   программы перевода имени на японский транслейт

Функции перевода с русского на японский манер
Пример перемещения формы по экрану за любую точку

Взято с сайта VK.com









Function GetRusToJPN(RusV:string):string;
const

  rusold:array[1..32] of string[3]=('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ'
,'Ы','Ь','Э','Ю','Я');
  rus:array[1..32] of string[3]= ('КА','ЗУ','РУ','ЖИ','ТЭ','КУ','СУ','З','КИ','КИ','МЭ','ТА','РИН','ТО','МО','НО','ШИ','АРИ','ЧИ','ДО','ЛУ','РИ', 'МИ', 'КЭ','ХИ','ХИ','ЗУК','ЗУК','ЗУК','МЭЙ','ФУ','НА');
  var l,x:integer;
      eng:string;
begin
   eng:='';
   l:=length(RusV);
   for X:=1 to l do begin
    if (rusv[x]<='А') then
    ... Читать дальше »

Прислали однажды текст написанный на русском но немного закодированный


на входе текст


CПOPУ НET, ФУНКЦИЯ НAПИCAНA ПO ВCEM ПPAВИЛAM И OНA КOPPEКTНO PAБOTAET, НO ВO3НИКAET OДНO "НO" - НO КAКOE ВPEMЯ 3AЙMET
ЧИCTКA HTML-ДOКУMEНTA OT TEГOВ И ПPИ TOM ЧTEНИE OПPEДEЛEННOГO НAБOPA ATPИБУTOВ И3 ЭTИХ TEГOВ? TEM БOЛEE, ЧTO ФУНКЦИЯ НE
ПPEДУCMATPИВAET ЧTEНИЯ ATPИБУTOВ, КCTATИ CКA3ATЬ.
OCTAЛЬНЫE METOДЫ PAБOTЫ C HTML-ДOКУMEНTAMИ, В ПPИНЦИПE TOЖE НEДOCTATOЧНO КOPPEКTНO PAБOTAЛИ C TEMИ ДOКУMEНTAMИ,
КOTOPЫE Я ИM ДAВAЛ НA PA3БOP. В ЧИCЛE ПPOЧИХ НEДOCTATКOВ MOЖНO ВЫДEЛИTЬ CЛEДУЮЩИE:



на выходе

СП0РУ НЕТ ФУНКЦNЯ Н4ПNС4Н4 П0 8СЕМ ПР48NЛ4М N 0Н4 К0РРЕКТН0 Р460Т4ЕТ Н0 80ЗНNК4ЕТ 09Н0 Н0  Н0 К4К0Е 8РЕМЯ З4ЙМЕТ ЧNСТК4 790КУМЕНТ4 0Т ТЕГ08 N ПРN Т0М ЧТЕНNЕ 0ПРЕ9ЕЛЕНН0Г0 Н460Р4 4ТРN6УТ08 NЗ ЭТNХ ТЕГ08 ТЕМ 60ЛЕЕ ЧТ0 ФУНКЦNЯ НЕ ПРЕ9УСМ4ТРN84ЕТ ЧТЕНNЯ 4ТРN6УТ08 КСТ4ТN СК4З4ТЬ0СТ4ЛЬНЫЕ МЕТ09Ы Р460ТЫ С 790КУМЕНТ4МN 8 ПРNНЦNПЕ Т0ЖЕ НЕ90СТ4Т0ЧН0 К0РРЕКТН0 Р4 ... Читать дальше »