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

Cmaila

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

Azrael

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

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

ну и проверку перед суммированием в циклах сделай типа

if ArrOfMemo.Text := '' then ... суммируем с нулем

Noskov

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

Azrael

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

Noskov

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

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

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