Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.05;
Скачать: 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 вся ветка

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.06 c
3-1098510260
UVV
2004-10-23 09:44
2004.12.05
Посоветуйте компоненты...


6-1095933458
Dennis S
2004-09-23 13:57
2004.12.05
Как прочесть с какой-либо определенной страницы в интернете


3-1099493944
denis24
2004-11-03 17:59
2004.12.05
динамический report


3-1099735417
Black
2004-11-06 13:03
2004.12.05
Как передать названия таблиц с сервера на клиент?


4-1098600632
Глеб
2004-10-24 10:50
2004.12.05
Завершение программы, которая ранее была запущена