ASCII <-> Ansi Umwandlung

[shmia]

folgende Unit wandelt ASCII nach Ansi und umgekehrt:

Delphi-Quellcode:

unit AsciiAnsi;

interface

function Ascii2Ansi(const s:AnsiString):AnsiString;
function Ansi2Ascii(const s:AnsiString):AnsiString;


implementation

uses Windows;

function Ascii2Ansi(const s:AnsiString):AnsiString;
begin
   Result := s;
   if Result <> '' then
   begin
      UniqueString(Result);
      OemToChar(Pchar(Result), Pchar(Result));
   end;
end;

function Ansi2Ascii(const s:AnsiString):AnsiString;
begin
   Result := s;
   if Result <> '' then
   begin
      UniqueString(Result);
      CharToOem(Pchar(Result), Pchar(Result));
   end;
end;

end.