Перевод из 10-ной СС в 8-ную СС. Не получается с переводом дробных чисел, на целые код есть. (Язык Delphi)

[reijii_nia]

Перевод из 10-ной СС в 8-ную СС. Не получается с переводом дробных чисел, на целые код есть.

  const cf:array [0..8] of char = ('0','1','2','3','4','5','6','7','8');
  var
  Perevod: TPerevod;
  a,n:integer;
 
implementation
 
{$R *.dfm}
 
 
function Oct(x: Integer): string;
const digits:array [0..8] of char = ('0','1','2','3','4','5','6','7','8');
var res:string; d:0..8;
begin
   res:='';
   while (x<>0) do begin
      d:=x mod 8; res:=digits[d]+res;
      x:=x div 8;
   end;
   Oct:=res;
 
end;
 
procedure TPerevod.Button1Click(Sender: TObject);
begin
 a:=strtoint(Edit1.Text);
 Label2.Caption:=(Oct(a));
end;

[Аватар]

Не красиво содранное за своё выдавать )

function Oct(x: Real; Precision: Byte): string;
var y: Int64;
    i: Integer;
begin
  Result:='';
  y:=Trunc(Abs(x));
  while y>0 do begin
    Result:=IntToStr(y mod 8)+Result;
    y:=y div 8;
  end;
  if Result='' then Result:='0'
  else if x<0 then Result:='-'+Result;

  if Precision>0 then begin
    Result:=Result+DecimalSeparator;
    x:=Frac(Abs(x));
    for i:=1 to Precision do begin
      Result:=Result+IntToStr(Trunc(x*8));
      x:=Frac(x*8);
    end;
  end;
end;

[reijii_nia]

Сообщение от Аватар

Не красиво содранное за своё выдавать )

function Oct(x: Real; Precision: Byte): string;
var y: Int64;
    i: Integer;
begin
  Result:='';
  y:=Trunc(Abs(x));
  while y>0 do begin
    Result:=IntToStr(y mod 8)+Result;
    y:=y div 8;
  end;
  if Result='' then Result:='0'
  else if x<0 then Result:='-'+Result;

  if Precision>0 then begin
    Result:=Result+DecimalSeparator;
    x:=Frac(Abs(x));
    for i:=1 to Precision do begin
      Result:=Result+IntToStr(Trunc(x*8));
      x:=Frac(x*8);
    end;
  end;
end;

Спасибо большое.
И кстати, я и не писал что это мое. Я написал что код есть

[Аватар]

if Result='' then Result:='0'
else if x<0 then Result:='-'+Result;

if Result='' then Result:='0';
if x<0 then Result:='-'+Result;

или заменить while на repeat тогда первый if не нужен

И кстати, я и не писал что это мое. Я написал что код есть

А я наивно думал, что когда пишу - есть код, то он мой, выстраданный, ночами не спал бедненький, шерстью успел обрасти за эти ночи. Да, чего уж там )

[reijii_nia]

Сообщение от Аватар

А я наивно думал, что когда пишу - есть код, то он мой, выстраданный, ночами не спал бедненький, шерстью успел обрасти за эти ночи. Да, чего уж там )

Да не, прост курсач свалился нежданно негадано, вот и не было времени самому писать код, пришлось искать готовые варианты.