Форум: "Основная";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.5 MB
Время: 0.085 c