| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Смена кодировки строки из ANSI в ASCII [D6, Win95/98]
Dr. Genius © (2004-10-07 10:44:00)Кодировку строки (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;
...............
...............
Вообще, это слишком банальная функция, да и объём у него большой. Если кто знает функцию получше (и покороче), чем эта, прошу выложить её текст.
Amoeba (2004-10-07 12:39:00) [1]
> Dr. Genius (07.10.04 10:44)
Отправь эту функцию в помойное ведро - ее место только там.
Leksiy (2004-10-07 10:56:00) [2]таких топиков с этим вопросом полно смари ниже
Суслик (2004-10-07 10:47:00) [3]win -> dos
chartooem
| |
