[dark89]

Здравствуйте, подскажите пожалуйста как дробные числа отображать без целого? Например есть 12,3456 должно быть 3456.

[Bargest]

a:=12.3456;
b:=a-trunc(a); // b=0.3456
дальше можно через str перевести в строку и удалить первые два символа.
Думаю так

[ivann]

2 варианта
1. Округлить используя Round
2. Перевести в строку DoubleTostr и разделить

[ryderx34]

ещё вариант:

Код:

1 2 3 4 5

function GetFracPart(A: Extended): String; begin   Result := FloatToStr(A);   Delete(Result, 1, Pos(',', Result)); end;

[dark89]

Спасибо, помогло. Не подскажите еще как сделать так, чтобы при делении к примеру 30/60 ответ был 0,50 а не 0,5?

[ryderx34]

Сообщение от dark89

Не подскажите еще как сделать так, чтобы при делении к примеру 30/60 ответ был 0,50 а не 0,5?

Если нужно именно двухзначное число после запятой, то попробуй как-нибудь так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

function AddZero(const S: String): String; begin   if Pos(',', S) = 0 then // если дробной части нет вообще     Result := S + ',00'   // добавляется два нуля   else     begin       if Length(S) - Pos(',', S) = 1 then // если после запятой 1 знак         Result := S + '0'  // в конце добавляется 0       else           // если всё как надо,         Result := S; // то остаётся без изменений     end; end;

написал первое что в голову пришло, так что наверное нужно ещё доточить этот код перед использованием.

[dark89]

Спасибо большое.