[axer]

Проблема возникает в следующем событии...

Код:

procedure TForm2.Edit10Click(Sender: TObject);
var
zp:real;
begin
zp:=(strtofloat(edit4.text)-( strtofloat(Edit6.Text)*strtofloat(Edit9.Text) ) *0.2;
Edit10.Text:=floattostr(zp);
end;

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

На моем компьютере, на котором программа писалась, все работает хорошо, ошибок не возникает.
На других компьютерах, протестировал на 3ех, возникает эта ошибка.
Пожалуйста помогите, не понимаю из-за чего...
Запятую не ввожу (вообще через keypress запретил), поля Edit не пустые.

[cotseec]

DecimalSeparator если запятая запрещена и десятичным разделителем в программе считается точка, то на всякий случай (судя по ошибке тут как раз такой случай) необходимо присвоить значение '.' (символ "точка"), не на каждой ОС умолчательным является английский язык

[poli-smen]

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

Проблема возникает в следующем событии...
procedure TForm2.Edit10Click(Sender: TObject);
var
zp:real;
begin
zp:=(strtofloat(edit4.text)-( strtofloat(Edit6.Text)*strtofloat(Edit9.Text) ) *0.2;
Edit10.Text:=floattostr(zp);
end;

На моем компьютере, на котором программа писалась, все работает хорошо, ошибок не возникает.
На других компьютерах, протестировал на 3ех, возникает эта ошибка.
Пожалуйста помогите, не понимаю из-за чего...
Запятую не ввожу (вообще через keypress запретил), поля Edit не пустые.

У тебя скорее всего в одном из Edit'ов участвующих в вычислении есть число 30.4, а разделителем целой и дробной части в настройках тех Windows'ов где не работает скорее всего запятая, а на твоём компьютере точка.
Чтобы у себя в программе использовать точку даже если в настройках Windows'а указан другой разделитель выполни такую команду:

Код:

DecimalSeparator:='.';

[axer]

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

DecimalSeparator если запятая запрещена и десятичным разделителем в программе считается точка, то на всякий случай (судя по ошибке тут как раз такой случай) необходимо присвоить значение '.' (символ "точка"), не на каждой ОС умолчательным является английский язык

спасибо, помогло!!)