Fórum Calcular campo Memo. #256874

procedure TForm1.bb_calculaClick(Sender: TObject);
var i : integer;
    Total : Real;
begin
  Total := 0;
// loop para todas as linhas do memo
  for i := 0 to memo1.Lines.Count - 1 do begin 
     try // caso haja linhas não numéricas ele desconsidera e continue contando
       Total := Total + StrToFloat(Memo1.Lines.Strings[i]);
     except;
     end;
  end;
  Edit1.Text := FloatToStr(Total); // joguei o valor para um Edit
end;