Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Преобразование ANSI строку в ASCII строку [D6, Win2k]

andrey__ © (2005-01-17 11:21:00)
Необходимо преобразовать ANSI строку (с кирилицей) в ASCII строку.
Вопрос может для когото и приметивный.
Но всеравно прошу помочь, может есть спец. функция.

andrey__ (2005-01-17 14:45:00) [1]
Да спасибо всем!!!

Kerk (2005-01-17 12:05:00) [2]
Fay © (17.01.05 12:02) [8]
ну и нафик еЁ :)

Fay (2005-01-17 12:02:00) [3]
2 Kerk © (17.01.05 11:58) [7]
У них с 'Ё' проблемы

Developerr (2005-01-17 12:02:00) [4]

> Fay

Я этот код даже не проверял. Я его нашел по ссылке, которую указал и выложил.

Kerk (2005-01-17 11:58:00) [5]
OemToCharBuf
CharToOemBuf

вроде так зовутся

Fay (2005-01-17 11:57:00) [6]
2 Developerr (17.01.05 11:55) [4]
Странный код. Вы допускаете, что kod=168 и kod=184 одновременно?

Developerr (2005-01-17 11:55:00) [7]
{преобразование Ansi to Ascii}
function AnToAs(s: String) : String;
Var i,kod : Integer;
begin
Result:=s;
for i:=1 to length(s) do
begin
kod:=Ord(s[i]);
if kod 13 then Result[i]:=' ';
if ( kod>=192) and ( kod=239) then
Result[i]:=Chr(kod-64);
if ( kod>=240) and ( kod=255) then
Result[i]:=Chr(kod-16);
if kod=168 then Result[i]:=Chr(240);
if kod=184 then Result[i]:=Chr(241);
end;
end;

http://delphiworld.narod.ru/base/ansi_to_ascii.html

А можно еще так:
В поисковой системе Яндекс ввести следующий текст

Delphi преобразование ANSI в ASCII

и попытасться найти.

Fay (2005-01-17 11:55:00) [8]
Я делал так
case s[i] of 'Ё' : s[i] := #$F0; 'ё' : s[i] := #$F1; '№' : s[i] := #$FC; 'А'..'п' : Dec(s[i], $40); 'р'..'я' : Dec(s[i], $10); end;

andrey__ (2005-01-17 11:48:00) [9]
>Fay © (17.01.05 11:32) [1]
У меня есть строка с Windows кодировкой символов (а именно в ней содержатся ANSI символы).
Задача:получить из выше названой строки такуюже строку толь символы у которой будут в DOS кодировке (если не ошибаюсь ASCII символы).

TUser (2005-01-17 11:38:00) [10]
MultiByteToWideChar ???

Fay (2005-01-17 11:32:00) [11]
2 andrey__ (17.01.05 11:21)
Бросай Delphi - учи русский.
Ну, можешь для начала уточнить вопрос - тут водятся тупые и непонятливые (типа меня).

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »