算术编码算法[5]

       endc := endc - 0.9;

       startc := startc / 0.1;

       endc := endc / 0.1;

       s := s + 'u';

       if (startc <>0) or (endc <> 1) then

          nemuricaltostr(s,startc,endc);

    end;

end;

procedure tform1.button1click(sender: tobject);

begin

   s := edit1.text;

   convertto(s,startc,endc);

   edit2.text := floattostr(startc);

   edit3.text := floattostr(endc);

end;

procedure tform1.button2click(sender: tobject);

begin

    s := '';

    startc := strtofloat(edit2.text);

    endc := strtofloat(edit3.text);

    nemuricaltostr(s,startc,endc);

    edit1.text := s;

end;

end.