[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]

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

[NumLock]

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

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

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

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

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