Ошибка с типами переменных

[wlll]

Здравствуйте! После нажатия кнопки подсчет вылазит ошибка:
is a not valid floating point value
Код:

implementation
const size=11;
var A:array [1..size] of integer;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s:Real;
 i,n:Integer;
begin
n:=Memo1.Lines.Count;
  If n=0 then
    Begin
    MessageBox(handle, PChar('Жодних данних не введено'), PChar('Помилка'),(MB_ICONSTOP+MB_OK));
    Exit;
    End;
  If n>SIZE then
    Begin
     MessageBox(handle, PChar('Кількість елементів перевищує розмір масиву'), PChar('Помилка'),(MB_ICONSTOP+MB_OK));
     end;
    S:=0;
  for i:=1 to 11 do
     begin
    S:=S+StrToFloat(Memo1.Lines[i]);
    end;
    Memo2.Lines.Add('S='+FloatToStr(s));
  end;

[eval]

is a not valid floating point value

где вы тут нашли слова "типы" и "переменные"?

[wlll]

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

где вы тут нашли слова "типы" и "переменные"?

является не действительным значением с плавающей точкой

[Аватар]

Memo1.Lines[i]);
здесь фигня какая-то - или точка вместо запятой, или наоборот, или вообще не подходящее значение

[Stilet]

S:=S+StrToFloatDef(Memo1.Lines[i],0);

не?

[Аватар]

Тогда уж лучше так

  c:=Trim(Memo1.Lines[i]);
  if DecimalSeparator='.' then c:=StringReplace(c,',','.')
  else if DecimalSeparator=',' then c:=StringReplace(c,'.',',');
  S:=S+StrToFloatDef(c,0);

[wlll]

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

S:=S+StrToFloatDef(Memo1.Lines[i],0);

не?

Да, точно! Работает!
Вопросик: Что за 0 ? )
и еще ) Ввожу 11 единиц а оно пишет что сумма 10...
Нужно тогда цикл начинать с 0?

Сообщение от Аватар

Тогда уж лучше так

  c:=Trim(Memo1.Lines[i]);
  if DecimalSeparator='.' then c:=StringReplace(c,',','.')
  else if DecimalSeparator=',' then c:=StringReplace(c,'.',',');
  S:=S+StrToFloatDef(c,0);

Спасибо! Но первый вариант лучше ( так как здесь для меня тяжело написано... ( Спасибо за помощь

[Stilet]

Что за 0 ?

А почему не почитаешь в хелпе описание функции StrToFloatDef() ?
Не ленись.

[eval]

Тогда уж лучше так

лучше это форматсеттингс, а DecimalSeparator уже давно депрекатед, и место ему в корзине.

[wlll]

Почему не удается получить справку по этой программе

Формат справки Windows для этой программы не воспроизводится в Windows 8 и Windows RT. Для получения дополнительных сведений перейдите на веб-сайт поддержки Майкрософт.