Delphi - перевод чисел в восьмеричную систему

[ralex35]

Помогите,пожалуйста
я пишу обработчик для кнопки перевода чисел в восьмеричную систему,ввожу 24 выдает 30,но когда я очищаю экран и ввожу другое число, допустим 25, то мне уже выдает 3130
что подправить?

begin
  x:=StrToInt(Edit1.Text);
  Edit1.Clear;
while x>0 Do
  begin
    R:=x mod 8;
    x:=x div 8;
    case R of
      0..8 : Bin := IntToStr(R) + Bin;
      end
    end;
    Edit1.Text:=Edit1.Text+Bin;
end;

[p51x]

 Edit1.Text:=Edit1.Text+Bin;

[Аватар]

А может Bin не чистится перед циклом? И case сто лет не нужен - mod 8 от положительного всегда от 0 до 7

[ralex35]

Спасибо)

[min@y™]

Ставь лайк!

43.png