Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.05;
Скачать: CL | DM;

Вниз

В процессе выполнения программы происходит вычисление:   Найти похожие ветки 

 
weak   (2002-11-18 10:50) [0]

В процессе выполнения программы происходит вычисление:
OAOF := GorF - PrTF(real), переменная OAOF заносится в таблицу (StrToFloat). Отрабатываю, выскакивает ошибка. Думаю, а что ж такое. Вывожу в showmessage. Смотрю, а оно 7451,1, т.е. с запятой. И вот вопрос, есть ли такакя функция, чтобы поменять запяту на точку.
P.S. Через параметры тоже самое.


 
passm ©   (2002-11-18 11:01) [1]

weak (18.11.02 10:50)>
procedure NormalDecimalSeparator(var StrNum: string);
const
RulesDecimalSeparator = ".";
var
i: Integer;
begin
for i:= 1 to Length(StrNum) do
if StrNum[i] = DecimalSeparator then
begin
StrNum[i]:= RulesDecimalSeparator;
Break
end
end;


 
passm ©   (2002-11-18 11:02) [2]

Либо
StrNum[Pos(DecimalSeparator, StrNum)]:= "."



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

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

Наверх




Память: 0.46 MB
Время: 0.018 c
6-14716
Chlavik
2002-10-07 02:09
2002.12.05
Подключённый диск. IP - ?


1-14673
Ich Hasse
2002-11-25 18:40
2002.12.05
Exel


8-14686
sachem
2002-08-14 17:47
2002.12.05
Как можно нарисовать Характеристику mp3 файла?


1-14555
Dmitrey
2002-11-26 09:24
2002.12.05
Как подключить в программу проверку файлов на вирусы


14-14765
AL2002
2002-11-14 16:33
2002.12.05
Есть ли у вас на дисках что-то такое, чего, IYHO, ни у кого нету?