VPF::Конвертирование строк - Форум программистов

chaos

Дата 17.10.2004, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

Подскажите как в делфях можно конвертировать строку и KOI8 в win1251 и обратно

Pakshin A. S.

Дата 17.10.2004, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

ПОИСК ПО ФОРУМУ!!!
Добавлено @ 13:38
Вот, к примеру
http://forum.vingrad.ru/index.php?showtopi...=1&hl=кодировки

А вообще там две страницы есть!!!
http://forum.vingrad.ru/index.php?act=Sear...%F0%EE%E2%EA%E8

chaos

Дата 17.10.2004, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

Спасибо за подсказку!!!
Кому интересно вот готовое решение;

Код


function dos2win(s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do begin
    case (ord(s[i])) of
      128..175: s[i]:= chr(ord(s[i])+64);
      224..239: s[i]:= chr(ord(s[i])+16);
      241: s[i]:= chr(184);  //ё
      240: s[i]:= chr(168); //Ё
    end;
  end;
  win2dos:=s;
end;

function win2dos(s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do begin
    case (ord(s[i])) of
      192..239: s[i]:= chr(ord(s[i])-64);
      240..255: s[i]:= chr(ord(s[i])-16);
      168: s[i]:= chr(240);  //Ё
      184: s[i]:= chr(241);  //ё
    end;
  end;
  dos2win:=s;
end;

Это сообщение отредактировал(а) chaos - 21.10.2004, 15:35

Pakshin A. S.

Дата 17.10.2004, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Вот видишь: какая полезная вещь ПОИСК!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »