Скачать: CL | DM;

Смена кодировки строки из ANSI в ASCII   Найти похожие ветки 

← →
Dr. Genius   (2004-10-07 10:44) [0]

Кодировку строки (String) нужно сменить из ANSI (кодировка Windows) в ASCII (кодировка MS-DOS). Нашел в Интернете несколько готовых процедур, но ни одна не работает. Пришлось самому написать простенькую функцию что-то вроде того:

function ASCIIConvert (S: String): String;
var
 I: Integer;
 St: String;
begin
 St := "";
 for I := 1 to Length (S) do
   case S [I] of
     "А": St := St + #128;
     "Б": St := St + #129;
     "В": St := St + #130;
     "Г": St := St + #131;
     "Д": St := st + #132;
     ...............
     ...............
   else
     St := St + S [I];
   end;
 ASCIIConvert := St;
end;

Но эта функция не переводит символ % в ASCII, хотя в функции написано:

     ...............
     ...............
     "%": St := St + #37;
     ...............
     ...............

Вообще, это слишком банальная функция, да и объём у него большой. Если кто знает функцию получше (и покороче), чем эта, прошу выложить её текст.

---

← →
Суслик ©   (2004-10-07 10:47) [1]

win -> dos
chartooem

---

← →
Leksiy ©   (2004-10-07 10:56) [2]

таких топиков с этим вопросом полно смари ниже

---

← →
Amoeba ©   (2004-10-07 12:39) [3]

> Dr. Genius   (07.10.04 10:44)

Отправь эту функцию в помойное ведро - ее место только там.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c