[BoBCP]

Здравствуйте.

Я делаю программу которая будет считать погрешность 5 измерений. И у меня проблема, в процесса высчитывания получаются числа с большим количеством знаков(например 0,2199999999999990), и я хочу чтобы выводился InputBox в котором предлагалось бы самому округлить значение. Но когда я пишу

Код:

f:=InputBox('Округлите значение',a1_del,'');

Мне выдается ошибка. Подскажите как правильно сделать

Спасибо

[lmikle]

Cкорее всего, выдается ошибка, что не найдена перегруженная функция для такого набора параметров. Параметры функции:
1ый - Строка. Заголовок окна
2ой - Строка. Подсказка (это текст перед полем ввода)
3ий - Переменная (у тебя д.б. типа Double или что-то типа того)
Возвращаемое значение (у тебя д.б. опять же типа Double).

Код:

var
  a1_del, f : Double;
begin
  a1_del := 4.39999999960;
  f : InputBox('Округлите значение','Значение:',a1_del);

[BoBCP]

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

Cкорее всего, выдается ошибка, что не найдена перегруженная функция для такого набора параметров. Параметры функции:
1ый - Строка. Заголовок окна
2ой - Строка. Подсказка (это текст перед полем ввода)
3ий - Переменная (у тебя д.б. типа Double или что-то типа того)
Возвращаемое значение (у тебя д.б. опять же типа Double).

Код:

var
  a1_del, f : Double;
begin
  a1_del := 4.39999999960;
  f : InputBox('Округлите значение','Значение:',a1_del);

Прописал типы переменным f и a1_del как double, выдается ошибка

Код:

f :=InputBox('Округлите значение','Значение:',a1_del);

a1_del_:= StrToFloat(f);

Код:

  [Error] Unit1.pas(69): Incompatible types: 'String' and 'Double'
  [Error] Unit1.pas(71): There is no overloaded version of 'StrToFloat' that can be called with these arguments
  [Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

[lmikle]

Дык у тебя обе переменные одного типа. Зачем ты еще StrToFloat дклаешь??? Убери нафиг, оставь:

Код:

f :=InputBox('Округлите значение','Значение:',a1_del);
a1_del_:= f;

а еще проще так:

Код:

a1_del :=InputBox('Округлите значение','Значение:',a1_del);

[BoBCP]

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

Дык у тебя обе переменные одного типа. Зачем ты еще StrToFloat дклаешь??? Убери нафиг, оставь:

Код:

f :=InputBox('Округлите значение','Значение:',a1_del);
a1_del_:= f;

а еще проще так:

Код:

a1_del :=InputBox('Округлите значение','Значение:',a1_del);

Если я прописываю вот так

Код:

a1_del :=InputBox('Округлите значение','Значение:',a1_del);

То у меня все равно выдается

Код:

 [Error] Unit1.pas(69): Incompatible types: 'String' and 'Double'

[xanorik]

Ребят, попробуйте иногда справку в Дельфи почитать:

Код:

function InputBox(const ACaption, APrompt, ADefault: string): string;

Код:

var
 a1_del: double;
begin
 a1_del:=StrToFloat(InputBox('Округлите значение', 'Значение:', FloatToStr(a1_del)));