Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 1 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Преобразование Ansi to Ascii

Иисус изменил Вашу жизнь.
Сохранить изменения?
Да - Нет - Отмена.


  {преобразование Ansi to Ascii}
  function AnToAs(s: String) : String;
  Var i,kod : Integer;
  begin
   Result:=s;
   for i:=1 to length(s) do
   begin
    kod:=Ord(s[i]);
    if  kod  13 then Result[i]:=' ';
    if ( kod>=192) and ( kod=239) then
       Result[i]:=Chr(kod-64);
    if ( kod>=240) and ( kod=255) then
       Result[i]:=Chr(kod-16);
    if kod=168 then  Result[i]:=Chr(240);
    if kod=184 then  Result[i]:=Chr(241);
   end;
  end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS