Смена кодировки строки из 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]

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

> Dr. Genius (07.10.04 10:44)

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

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