Преобразование Ansi to Ascii

Delphi , Синтаксис , Преобразования

Преобразование Ansi to Ascii

 {преобразование 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;

Статья Преобразование Ansi to Ascii раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2010-02-17 12:53:23 :: re:Преобразование Ansi to Ascii

пользователь: Руслан.

не пашет

:: 2010-02-17 21:34:48 :: re:Преобразование Ansi to Ascii

пользователь: kan.

ASCII — American Standard Code for Information Interchange
ANSI - American National Standards Institute
по мойму у них вообще одна и та же кодировка.

:: 2010-03-11 07:43:47 :: re:Преобразование Ansi to Ascii

пользователь: Игорь.

В алгоритме условие в блоке IF должно быть or?
Иначе преобразование будет только кода 239 и в следующем условии 255.
Какое отличие между кодировками?
Судя по алгоритму я так понял:
Отличие между кодировками:
Ansi ASCII
#13 #32 - пробел
#192-239 заменяется #kod-64
#240-255 #kod-16
#168 #240
#184 #241

:: Главная :: Преобразования ::