Форум Херсона. Форум Херсонской молодежи, флейм, фотографии Херсона, политика в Херсоне, сетевой форум, сети Херсона

function _str(c: Char): string;
begin
  Result := IntToStr(Byte(c));
  while Length(Result) < 3 do
    Result := '0' + Result;
end;

function _code1(s: string): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(s) do
    Result := Result + _str(s[i]);
end;

function _chr(p: PChar): Char;
var
  str: string;
begin
  SetLength(str, 3);
  move(p^, PChar(str)^, 3);
  Result := Char(Byte(StrToInt(str)));
end;

function _code2(s: string): string;
var
  i: Integer;
begin
  Result := '';
  i := 0;
  while i < Length(s) do
    begin
      Result := Result + _chr(PChar(Integer(PChar(s)) + i));
      i := i + 3;
    end;
end;