KOI8-R

: Delirium
WEB-: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>>  KOI8-R

  Ansi  KOI8-R

: 
:       Delirium, VideoDVD@hotmail.com, ICQ:118395746, 
Copyright:   Delirium (Master BRAIN) 2003
:        17  2003 .
***************************************************** }

function ANSI2KOI8R(S: string): string;
var
  Ansi_CODE, KOI8_CODE: string;
  i: integer;
begin
  KOI8_CODE := 'ї';
  ANSI_CODE := '';
  Result := S;
  for i := 1 to Length(Result) do
    if Pos(Result[i], ANSI_CODE) > 0 then
      Result[i] := KOI8_CODE[Pos(Result[i], ANSI_CODE)];
end;
           




 |   |   |   | 

Copyright © LSD Software 2006 - 2011