Работа с строкой

← →
vigo (2005-08-02 11:50) [0]

Добрый день!
Есть небольшая задачка по обработке дробной части числа. Если др.часть, грубо говоря, целая, то есть "0.1" и т.п., то её "дополнить" нулем, то есть "0.10". Написал код, но не нравиться, кол-во используемых переменных, каюсь (сильно не бить):
var s, s1 : string; i, z: integer; begin s := "100.5"; s1 := ""; if pos(".", s) > 0 then for i := 1 to length(s) do if s[i] = "." then begin z := i + 1; repeat s1 := s1 + s[z]; z := z + 1; until s[z] = ""; end; if length(s1) = 1 then s := s + "0"; ShowMessage(""+s+"");
Подскажите ещё какие-нить варианты.

← →
Jeer © (2005-08-02 12:03) [1]

>Если др.часть, грубо говоря, целая

Это что-то новое в математике ?

← →
Lexer © (2005-08-02 12:06) [2]

Может это подойдет?
s := Format("%.2f", [100.5])

← →
vigo (2005-08-02 12:45) [3]

> Lexer © (02.08.05 12:06) [2]

А если s не константа?

> vigo (02.08.05 12:45) [3]
> А если s не константа?

d := Любое число; Label1.Caption := Format("%.2f", [d])

← →
vigo (2005-08-02 12:58) [5]

все понял, то бишь s := Format("%.2f", [StrToFloat(s)]);
большое спасибо

Работа с строкой Найти похожие ветки