Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: 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 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
1-1097066708
Klopan
2004-10-06 16:45
2004.10.24
List


8-1091089677
NOX
2004-07-29 12:27
2004.10.24
Подскажите как из IDirectDrawSurface7 получить TBitmap?


14-1096715298
Nikolay M.
2004-10-02 15:08
2004.10.24
Формулы в Rus/Eng Екселе


4-1095508306
Kirill
2004-09-18 15:51
2004.10.24
Кто использует DLL


14-1096902511
X9
2004-10-04 19:08
2004.10.24
Новое сокращение или долой "программно"