Скачать: CL | DM;

Incopatible types: String and Char    Найти похожие ветки 

← →
KilkennyCat ©   (2004-11-20 17:12) [40]

function FormatStr(Str: String, NumberDel : byte): String;
var
I: Integer;
b : byte;
begin
 b := 1;
 for I := Length(Str) downto 1 do
  if (Str[I] in [".", ","]) and (Str[I] <> DecimalSeparator) and (NumberDel = b)
  then begin
    Str[I] := DecimalSeparator;
    inc(b);
  end
    else if not (Str[I] in ["0".."9", DecimalSeparator])
      then
        Delete(Str, I, 1);
 Result := Str
end.

с выбором нужной запятой... хотя, опять же, можно выбрать вторую, а их всего одна...

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.51 MB
Время: 0.028 c