Search options (Page 2 of 4)

function DecodeUTF(stroka:string):string ;
 var
 dlina,poz : int ;
 symvol,promej: string ;
 f : Boolean ;
begin
  f:=false ;
  dlina := Length(stroka);
  if dlina > 0 then  // Если строка не пустая
    begin
      if pos('\u',stroka)<>0 then   // Если есть юникод
        begin
             While dlina > 0 do
             begin
                poz := pos('\u',stroka);
                if poz > 1 then
                  begin
                    result :=result+ copy(stroka,1,poz-1);
                    Delete(stroka,1,poz-1);
                     dlina := dlina - poz +1 ;

                  end
                else
                  begin
                     if poz>0 then
                        begin
                          symvol:= copy(stroka,5,2);
                          case symvol of
                             '10': promej :=  'А';
                             '30': promej :=  'а';
                             '11': promej :=  'Б';
                             '31': promej :=  'б';
                             '12': promej :=  'В';
                             '32': promej :=  'в';
                             '13': promej :=  'Г';
                             '33': promej :=  'г';
                             '14': promej :=  'Д';
                             '34': promej :=  'д';
                             '15': promej :=  'Е';
                             '35': promej :=  'е';
                             '01': promej :=  'Ё';
                             '51': promej :=  'ё';
                             '16': promej :=  'Ж';
                             '36': promej :=  'ж';
                             '17': promej :=  'З';
                             '37': promej :=  'з';
                             '18': promej :=  'И';
                             '38': promej :=  'и';
                             '19': promej :=  'Й';
                             '39': promej :=  'й';
                             '1a': promej :=  'К';
                             '3a': promej :=  'к';
                             '1b': promej :=  'Л';
                             '3b': promej :=  'л';
                             '1c': promej :=  'М';
                             '3c': promej :=  'м';
                             '1d': promej :=  'Н';
                             '3d': promej :=  'н';
                             '1e': promej :=  'О';
                             '3e': promej :=  'о';
                             '1f': promej :=  'П';
                             '3f': promej :=  'п';
                             '20': promej :=  'Р';
                             '40': promej :=  'р';
                             '21': promej :=  'С';
                             '41': promej :=  'с';
                             '22': promej :=  'Т';
                             '42': promej :=  'т';
                             '23': promej :=  'У';
                             '43': promej :=  'у';
                             '24': promej :=  'Ф';
                             '44': promej :=  'ф';
                             '25': promej :=  'Х';
                             '45': promej :=  'х';
                             '26': promej :=  'Ц';
                             '46': promej :=  'ц';
                             '27': promej :=  'Ч';
                             '47': promej :=  'ч';
                             '28': promej :=  'Ш';
                             '48': promej :=  'ш';
                             '29': promej :=  'Щ';
                             '49': promej :=  'щ';
                             '2a': promej :=  'Ъ';
                             '4a': promej :=  'ъ';
                             '2d': promej :=  'Ы';
                             '4b': promej :=  'ы';
                             '2c': promej :=  'Ь';
                             '4c': promej :=  'ь';
                             '2d': promej :=  'Э';
                             '4d': promej :=  'э';
                             '2e': promej :=  'Ю';
                             '4e': promej :=  'ю';
                             '2f': promej :=  'Я';
                             '4f': promej :=  'я ';  // По окончании написаниия программы удалите пробел после буквы "я"   )))(все останется работоспособным)
                             'b0': promej :=  '°';   // Градусы это ))) , нужны были ....
                          else
                            begin
                              promej:= '\u';
                              f := True ;
                            end;
                          end;

                             result := result + promej ;
                             if f=False then
                                begin
                                 dlina := dlina - 6 ;
                                Delete(stroka,1,6)
                                end
                             else
                                begin
                                Delete(stroka,1,2);
                                dlina := dlina - 2 ;
                                end;
                             f :=False ;

                        end
                      else
                        begin
                        result := result+ stroka;
                        dlina:=0 ;
                        end;

                    end;

                end; // Конец цикла while
         end
       else result := stroka ; // если нет юникода
    end  // if dlina > 0 then  // Если строка не пустая
  else
    begin
       result:='' ;  // Если пустая строка
    end;
end;