Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
Вниз
Смена кодировки строки из 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.044 c
