Цитата:
|
Сообщение от 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'а указан другой разделитель выполни такую команду: