Работа с CheckBox

[Roma30]

There is no overloaded version of 'StrToFloat' that can be called with these arguments

sum := 0.0;
countSum := 0;
if CheckBox1.Checked then begin
  sum := sum + StrToIntDef(Edit1.Text, 0); {Вот тут, ну и соответственно везде ниже}
  inc(countSum)
end;

if CheckBox2.Checked then begin
  sum := sum + StrToIntDef(Edit2.Text, 0); 
  inc(countSum)
end;

....

if CheckBox4.Checked then begin
  sum := sum + StrToIntDef(Edit4.Text, 0);
  inc(countSum)
end;

if  countSum 
then ShowMessage('Ни одно значение не выбрано, считать нечего!')
else  ShowMessage(' среднеарифметическое = '+FloatToStr( sum / countSum) );

[indexx]

function StrToIntDef(const S: string; Default: Integer): Integer;

[Roma30]

Не понял тебя. Мне нужны вещественные числа. Я указываю тип Real и тип форматирования Float. А мне ошибку выдает. Ни когда такого не было.

[indexx]

Я жирным выделил, какой тип переменной возвращает функция StrToIntDef. Где ты там Real, и Float видишь? Теперь подними глаза на текст своей ошибки, включи гугл переводчик, и мозг, и слегка подумай.

[Roma30]

Integer это целое число, а мне нужны вещественные.

[min@y™]

Функция StrToFloatDef() тоже имеет место быть.

function StrToFloatDef(const S: string; const Default: Extended): Extended; overload;
function StrToFloatDef(const S: string; const Default: Extended; const FormatSettings: TFormatSettings): Extended; overload;

[indexx]

Хорошо. Мозг со скрипом завёлся. Продолжай логическую цепочку.

[Roma30]

min@y™, спасибо. Разобрался теперь)

[Roma30]

В общем всем кто помогал, огромное спасибо)

[creditcredit]

а что это?