[utro35]

Здравствуйте.
В проекте несколько таймеров, которые занимаются последовательным прибавлением.
Два из них должны работать с вещественным типом чисел.
код первого:

Код:

procedure TMainForm.Timer15Timer(Sender: TObject);
begin
if par = (200) then
begin
Timer15.Enabled:= false;
exit;
end;
par:=par+0.1;
edit4.text:= floattostr(par);
end;
код второго 
procedure TMainForm.Timer5Timer(Sender: TObject);
begin
if partep=(200) then
begin
Timer5.Enabled:= false;
exit;
end;
partep:=partep+0.1;
edit10.text:= floattostr(partep);
end;

Админ: Пользуемся тегами для офрмления кода!

Первый работает, а вот второй выдает ошибку:

Project Project 1 .exe raised exception class EConvertError with message "0.1" Is not a valid integer value1. Process stopped. Use Step or Run to continue.

[NumLock]

с типами напутал

[utro35]

так что напутал?
у меня partep=real
и par=real

[lmikle]

Сообщение от utro35

так что напутал?
у меня partep=real
и par=real

А какой разделитель дробной части у тебя стоит в системе? Не запятая случаем? Соотвсественно, компилятор и ругается.

[utro35]

Нет, стоит точка. И ругань происходит в уже скомпилированной проге, как только дело доходит до включения вышеуказанного таймера.
Отладчик тыкает в строку

Код:

edit10.text:= floattostr(partep);

[angvelem]

Ну если с разделителем, как уверяешь, всё верно, значит в переменной находится не совсем то, что нужно.

[utro35]

Сообщение от angvelem

Ну если с разделителем, как уверяешь, всё верно, значит в переменной находится не совсем то, что нужно.

Это как???

А какой разделитель дробной части у тебя стоит в системе?

Не понял, что подразумевается под этим, что за система имеется ввиду?

[angvelem]

Тебе видней. У меня этот код ошибки не вызывает:

Код:

var
  Par : Single = 0;
  Partep : Single = 0;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
  if par = 200 then
  begin
    Timer2.Enabled:= false;
    Exit;
  end;
  par := par + 0.1;
  Edit2.Text := FloatToStr(par);
end;

procedure TForm4.Timer2Timer(Sender: TObject);
begin
  if partep = 200 then
  begin
    Timer1.Enabled := False;
    Exit;
  end;
  partep := partep + 0.1;
  Edit3.Text := FloatToStr(partep);
end;

[utro35]

Вот блин, нашел ошибку: на одном из обработчиков злосчастный эдит проверялся как integer

[utro35]

Исправил, однако теперь дебуггер выдает ту же ошибку на строке
MainForm.ShowModal, но уже в другом юните

[angvelem]

ну так код выкладывай.

[utro35]

Сообщение от angvelem

ну так код выкладывай.

Все заработало!!!!
Еще в одном месте нашел его как integer
Большое спасибо за участие!

[NumLock]

Сообщение от NumLock

с типами напутал

Сообщение от utro35

так что напутал?

возможно где-то из Edit как Integer потом берешь