Показать сообщение отдельно
  #6  
Старый 14.11.2010, 11:27
Аватар для ryderx34
ryderx34 ryderx34 вне форума
Активный
 
Регистрация: 22.01.2010
Сообщения: 211
Версия Delphi: 7, 2010
Репутация: 1349
По умолчанию

Цитата:
Сообщение от dark89
Не подскажите еще как сделать так, чтобы при делении к примеру 30/60 ответ был 0,50 а не 0,5?
Если нужно именно двухзначное число после запятой, то попробуй как-нибудь так:
Код:
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;
написал первое что в голову пришло, так что наверное нужно ещё доточить этот код перед использованием.
Ответить с цитированием