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

отредактировано 13:58 Раздел: FastReport 3.0
как вычислиьт сумму чисел в мемо с 44 по 54 и 78 по 89, и запихнуть в мемо100?
не все мемки с числами, есть пустые
у меня почему то никак не получается
подскажите, плиз

Комментарии

  • отредактировано 13:58
    В общем я делал примерно так (хотя может можно как нибудь поэкономнее)

    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;
  • отредактировано 13:58
    ну и проверку перед суммированием в циклах сделай типа

    if ArrOfMemo.Text := '' then ... суммируем с нулем
  • отредактировано 13:58
    Зачем такой массив? Можно через FindObject.
  • отредактировано 13:58
    каким конкретно образом???
  • отредактировано 13:58
    Примерно так:
    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;
    
  • отредактировано 13:58
    век живи, век учись ;)

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.