Недавно добавленные исходники

•  TDictionary Custom Sort  3 223

•  Fast Watermark Sources  2 989

•  3D Designer  4 750

•  Sik Screen Capture  3 259

•  Patch Maker  3 466

•  Айболит (remote control)  3 526

•  ListBox Drag & Drop  2 903

•  Доска для игры Реверси  80 757

•  Графические эффекты  3 842

•  Рисование по маске  3 171

•  Перетаскивание изображений  2 544

•  Canvas Drawing  2 671

•  Рисование Луны  2 500

•  Поворот изображения  2 089

•  Рисование стержней  2 119

•  Paint on Shape  1 522

•  Генератор кроссвордов  2 180

•  Головоломка Paletto  1 730

•  Теорема Монжа об окружностях  2 156

•  Пазл Numbrix  1 649

•  Заборы и коммивояжеры  2 016

•  Игра HIP  1 261

•  Игра Go (Го)  1 200

•  Симулятор лифта  1 421

•  Программа укладки плитки  1 176

•  Генератор лабиринта  1 511

•  Проверка числового ввода  1 295

•  HEX View  1 465

•  Физический маятник  1 322

•  Задача коммивояжера  1 356

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Перекодировка текста DOS-Windows-Koi8




Подходит компьютерщик (К) к газетному киоску и спрашивает у продавца (П):
К: - Есть ли у вас свежий номер 'Компьютерного обозрения'?
П: - Есть.
К: - Ну тогда, пожалуйста, один номер в кодировке KOI8-R


procedure WinToDos;
var
  Src, Str: PChar;
begin
  Src := Memo1.Lines.GetText; //Берем текст из TMemo как тип PChar
  CharToOem(Src, Str); //API функция для перевода текста
  Memo2.Lines.Text := StrPas(Str);//Записываем назад
end;

procedure DosToWin;
var
  Src, Str: PChar;
begin
  Src := Memo1.Lines.GetText; //Берем текст из TMemo как тип PChar
  OemToChar(Src, Str); //API функция для перевода текста
  Memo2.Lines.Text := StrPas(Str);//Записываем назад
end;

var
  koi8toalt : array [0..127] of char = (
  CHR($c4), Chr($b3), Chr($da), Chr($bf),
  Chr($c0), Chr($d9), Chr($c3), Chr($b4),
  Chr($c2), Chr($c1), Chr($c5), Chr($df),
  Chr($dc), Chr($db), Chr($dd), Chr($de),
  Chr($b0), Chr($b1), Chr($b2), Chr($f4),
  Chr($fe), Chr($f9), Chr($fb), Chr($f7),
  Chr($f3), Chr($f2), Chr($ff), Chr($f5),
  Chr($f8), Chr($fd), Chr($fa), Chr($f6),
  Chr($cd), Chr($ba), Chr($d5), Chr($f1),
  Chr($d6), Chr($c9), Chr($b8), Chr($b7),
  Chr($bb), Chr($d4), Chr($d3), Chr($c8),
  Chr($be), Chr($bd), Chr($bc), Chr($c6),
  Chr($c7), Chr($cc), Chr($b5), Chr($f0),
  Chr($b6), Chr($b9), Chr($d1), Chr($d2),
  Chr($cb), Chr($cf), Chr($d0), Chr($ca),
  Chr($d8), Chr($d7), Chr($ce), Chr($fc),
  Chr($ee), Chr($a0), Chr($a1), Chr($e6),
  Chr($a4), Chr($a5), Chr($e4), Chr($a3),
  Chr($e5), Chr($a8), Chr($a9), Chr($aa),
  Chr($ab), Chr($ac), Chr($ad), Chr($ae),
  Chr($af), Chr($ef), Chr($e0), Chr($e1),
  Chr($e2), Chr($e3), Chr($a6), Chr($a2),
  Chr($ec), Chr($eb), Chr($a7), Chr($e8),
  Chr($ed), Chr($e9), Chr($e7), Chr($ea),
  Chr($9e), Chr($80), Chr($81), Chr($96),
  Chr($84), Chr($85), Chr($94), Chr($83),
  Chr($95), Chr($88), Chr($89), Chr($8a),
  Chr($8b), Chr($8c), Chr($8d), Chr($8e),
  Chr($8f), Chr($9f), Chr($90), Chr($91),
  Chr($92), Chr($93), Chr($86), Chr($82),
  Chr($9c), Chr($9b), Chr($87), Chr($98),
  Chr($9d), Chr($99), Chr($97), Chr($9a));

function Koi8toWin(const Data: PChar; DataLen: Integer): PChar;
var
  PCh: PChar;
  i: Integer;
begin
  PCh := Data;
  for i := 1 to DataLen do
  begin
    if Ord(Pch^) > 127 then
      Pch^ := koi8toalt[Ord(Pch^) - 128];
    Inc(PCh);
  end;
  PCh := Data;
  OemToCharBuff(PCh, PCh, DWORD(DataLen));
  Result := Data;
end;





Похожие по теме исходники

Консольное DOS приложение

MozaaEXT DOS Emulator

Драйвер клавиатуры под DOS

Non Rectangular Windows

 

Windows Transparency

Windows Alpha-channel

Progress Windows

Popup Info Windows

 

Windows Sorting

RawWrite for Windows

Windows Desktops

Сообщения между процессами Windows

 



Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте