вычислиьт сумму чисел в мемо

Комментарии

• Azrael

  April 2006 отредактировано 04:05

  В общем я делал примерно так (хотя может можно как нибудь поэкономнее)
  
  var
  ArrOfMemo : array [0..99] of TfrxMemoView;
  i, j, k : integer;
  
  begin
  ArrOfMemo[0] := Memo1;
  ArrOfMemo[1] := Memo2;
  .....
  ArrOfMemo[99] := Memo100;
  
  for i := 43 to 53 do
  begin
  j := j + StrToInt(ArrOfMemo.Text);
  end;
  
  for i := 77 to 88 do
  begin
  k := k + StrToInt(ArrOfMemo.Text);
  end;
  
  ArrOfMemo[99].Text := IntToStr(j + k);
  
  end;
• Azrael

  April 2006 отредактировано 04:05

  ну и проверку перед суммированием в циклах сделай типа
  
  if ArrOfMemo.Text := '' then ... суммируем с нулем
  
• Noskov

  April 2006 отредактировано 04:05

  Зачем такой массив? Можно через FindObject.
• Azrael

  April 2006 отредактировано 04:05

  каким конкретно образом???
• Noskov

  April 2006 отредактировано 04:05

  Примерно так:

  var Memo: TfrxComponent;
  ...
  for i:=43 to 53 do
  begin
    Memo:=frxReport1.FindObject('Memo' + IntToStr(i));
    if (Memo <> nil) and (Memo is TfrxMemoView) and (TfrxMemoView(Memo).Text <> '') then
      j:=j + StrToInt(TfrxMemoView(Memo).Text);
  end;
  
• Azrael

  May 2006 отредактировано 04:05

  век живи, век учись