Преобразование ANSI строку в ASCII строку

← →
andrey__ (2005-01-17 11:21) [0]

Необходимо преобразовать ANSI строку (с кирилицей) в ASCII строку.
Вопрос может для когото и приметивный.
Но всеравно прошу помочь, может есть спец. функция.

← →
Fay © (2005-01-17 11:32) [1]

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

← →
TUser © (2005-01-17 11:38) [2]

MultiByteToWideChar ???

← →
andrey__ (2005-01-17 11:48) [3]

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

← →
Developerr (2005-01-17 11:55) [4]

{преобразование 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) [5]

Я делал так
case s[i] of "Ё" : s[i] := #$F0; "ё" : s[i] := #$F1; "№" : s[i] := #$FC; "А".."п" : Dec(s[i], $40); "р".."я" : Dec(s[i], $10); end;

← →
Fay © (2005-01-17 11:57) [6]

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

← →
Kerk © (2005-01-17 11:58) [7]

OemToCharBuf
CharToOemBuf

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

← →
Fay © (2005-01-17 12:02) [8]

← →
Developerr (2005-01-17 12:02) [9]

> Fay

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

← →
andrey__ (2005-01-17 14:45) [11]

Да спасибо всем!!!

Преобразование ANSI строку в ASCII строку Найти похожие ветки