Сумма квадратов чисел

[swat1193]

void __fastcall TForm2::Button1Click(TObject *Sender)
{
 int i,res,cnt,tmp;
 // AnsiString str;
  cnt = Memo1->Lines->Count;    //считаем строки
  for (i=0;i<cnt;i++)
  {
    res = StrToInt(Memo1->Lines->Strings[i]);  //делаем   строку числом и обозначаем переменной
    if (res!=0)  //если переменная не равна нулю
    {
      res = StrToInt(Memo1->Lines->Strings[i])*StrToInt(Memo1->Lines->Strings[i]); //вычисляем квадрат
    }
Memo2->Lines->Add(IntToStr(res));  //выводим результат в memo2
 
  }
}

после того как считаем квадрат числа в каждой строчке надо чтобы ещё все числа просуммировала
выручайте

[Stilet]

    if (res!=0)  //если переменная не равна нулю
    {
      res = StrToInt(Memo1->Lines->Strings[i])*StrToInt(Memo1->Lines->Strings[i]); //вычисляем квадрат
sum+=res;
    }

где sum целочисленная.

[swat1193]

void __fastcall TForm2::Button1Click(TObject *Sender)
{
 int i,res,cnt,tmp,sum;
 // AnsiString str;
  cnt = Memo1->Lines->Count;    //считаем строки
  for (i=0;i<cnt;i++)
  {
    res = StrToInt(Memo1->Lines->Strings[i]);  //делаем   строку числом и обозначаем переменной
    if (res!=0)  //если переменная не равна нулю
    {
      res = StrToInt(Memo1->Lines->Strings[i])*StrToInt(Memo1->Lines->Strings[i]); //вычисляем квадрат
sum+=res;
    }
Memo2->Lines->Add(IntToStr(sum));  //выводим результат в memo2
 
  }

}

вот так должно быть?

[Stilet]

А твое "вот так" работает?

[swat1193]

к сожалению у меня компилятор почему -то ошибку выдаёт постоянно [Linker Error] Error: Unable to open file 'VAR7.DFM' даже если программа рабочая

[swat1193]

От ошибки избавился
выводит не то

[Mad_Cat]

sum=0; /*не мешало бы добавить*/

пример ввода и вывода можно?

[swat1193]

в текстовом файле
1
1
2

выводит
4784129
4784130
4784134

должно выдать
6

вставил sum=0;
теперь выдаёт
1
2
6 ( то что надо)
но как сделать чтобы только сумма квадратов была

[Mad_Cat]

Memo2->Clear(); // по аналогии с delphi
Memo2->Lines->Add(IntToStr(sum));

[swat1193]

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

Memo2->Clear; // по аналогии с delphi
Memo2->Lines->Add(IntToStr(sum));

Memo2->Clear; ошибка на этом
[C++ Error] Unit2.cpp(74): E2235 Member function must be called or its address taken