img
00:00
imgDRKB online - ANSI ---> ASCII
imgimgimg
  Общие вопросы
  Delphi IDE, компиллятор, отладчик, редактор
  Язык программирования Дельфи
  VCL
  Системные функции и WinAPI
  Базы данных
  Работа с файловой системой
  Репортинг, работа с принтером
  Работа с сетью, интернетом, протоколами
  Работа с графикой и мультимедиа
  Математика, алгоритмы
  Форматы файлов, данных. Конвертация форматов
  ANSI ---> ASCII
  BMP ---> AVI (для TAnimate)
  BMP ---> EMF
  BMP ---> DIB
  BMP ---> ICO
  BMP ---> JPG
  BMP --> EMF (Enhanced Metafile)
  BMP ---> RTF
  BMP ---> WMF
  CUR ---> BMP
  ICO ---> BMP
  JPG ---> BMP
  TIF ---> PDF
  TXT ---> GIF
  DOC ---> HTML
  WMF ---> BMP
  RTF-->HTML
  HTML --> RTF
  DFM -->TXT, TXT --> DFM
  Win1251 <-> Koi8r
  Как инсталлировать INF файл?
  Как конвертировать WideString в String?
  Как определить графический формат файла (не используя расширение)?
  Как прочитать MP3 ID3-Tag?
  Как прочитать заголовок wav файла?
  Информация о AVI файле (разбор заголовка AVI)
  Как работать с DWG файлами (AutoCAD)?
  Как работать с GIF файлами?
  Как работать с PDF файлами?
  Как разрезать wav файл?
  Как узнать размер картинки для JPG, GIF и PNG файлов?
  Компонент для работы с PCX файлами
  Пример работы чтения и сохранении wav-файлов
  Работа с TGA файлами
  Формат wave файла
  Декомпилляция звукового файла формата Wave и получение звуковых данных
  Flash SWF --> EXE
  Преобразование иконок в Gliph-ы
  Документация на основе RTF-шаблона
  "Дедушка RTF" еще послужит
  ActiveX, COM, DCOM, MIDAS, CORBA, интерфейсы, OLE, DDE
  Разработка приложений
  Kylix
  Delphi.Net
  Развлечения
  
  [drkb=3972] Комментариев: 0 
ANSI ---> ASCII


delphi
{преобразование 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;



@Drkb::04263

Взято с http://delphiworld.narod.ru
Количество статей: 4366
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
11-10-2019 10:05
Programmer
А может быть он просто тоже сидит в десксофте
10-10-2019 10:44
antonn
Есть французская певица "Kareen Antonn", может ее трек скачал smiley
09-10-2019 03:46
Bact
У моего брата в загрузках есть файл с именем antonn, может ли быть это совпадением?
09-10-2019 03:37
Bact
есть кто? :0
03-10-2019 14:20
antonn
Примерно как гостевую книгу, только рисуется на всех страницах.
02-10-2019 19:09
Programmer
антонн, как ты сделал чат?
02-10-2019 19:09
Programmer
есть
15-09-2019 18:55
Expendobrooo
Есть кто живой?
15-09-2019 17:36
Programmer
сайт сдох smiley
29-08-2019 22:11
Zoom
ПРивет Привет
Статистика
 СегодняВсего
Посетителей2592107490
Запросов10786323745070
Online
Пользователей0
Гостей11
imgimgimgimg
 
img
     00:00