Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Удалить свой же exe-шник
   Категория: Приложение
  Упаковка таблиц в BDE
   Категория: Базы данных
  Удалить файл в Корзину
   Категория: Приложение
  Число строкой с предстоящими нулями
   Категория: Текст и строки
  Компоненты ToolBar и PageScroller
   Категория: Компоненты
  Создание ярлыка на Рабочем столе
   Категория: Приложение
  Как нарисовать календарь
   Категория: Текст и строки
  Вставить иконки в Grid
   Категория: Компоненты
  Округление в меньшую сторону
   Категория: Математика
Delphi - База Знаний: Перекодировка в DBASE

  << Вернуться к Содержанию  

function update_dos(s:string):string;
var c:STRING;
    I:INTEGeR;
    l:byte;
    dd:char;
begin
i:=1;
c:='';
while i< length(s)+1 do
begin
   l:=ord(s[i]);
   inc(i);
   if (l>=128) and (l<=192)then l:=l+64 else
   if (l>=224) and (l<240) then l:=l+16 else
   if l=241 then l:=184 else
   if l=240 then l:=168;
   dd:=chr(l);
   c:=c+dd;
end;
update_dos:=c;
end;

function update_win(s:string):string;
var c:STRING;
    I:INTEGeR;
    l:byte;
    dd:char;
begin
i:=1;
c:='';
while i< length(s)+1 do
begin
   l:=ord(s[i]);
   inc(i);
   if (l>=192) and (l<240)then l:=l-64 else
   if (l>=240) and (l<256) then l:=l-16 else
   if l=184 then l:=241 else    
   if l=168 then l:=240;
   dd:=chr(l);
   c:=c+dd;
end;
update_win:=c;
end;
  << Вернуться к Содержанию