Delphi FAQ -

| | | | | |
| | | | | | |



Google  
 

KOI8-R



: Delirium

{ **** 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 2004-2016 "Delphi Sources". Delphi World FAQ




     Twitter     Facebook