Вы каждым циклом по
iпереписываете T.Memo.Text.
Или:
procedure TfDM.EST1Click(Sender: TObject);
var
i: Integer;
T: TfrxMemoView;
begin
T:= TfrxMemoView(frxAIR1.FindObject('Memo156'));
T.Memo.Text := fMain.Memo3.Text;
T:= TfrxMemoView(frxAIR1.FindObject('Memo157'));
T.Memo.Text := fMain.Memo3.Text;
T:= TfrxMemoView(frxAIR1.FindObject('Memo158'));
T.Memo.Text := fMain.Memo3.Text;
// и так далее...
frxAIR1.ShowReport;
end;
Или:
procedure TfDM.EST1Click(Sender: TObject);
var
i: Integer;
T: TfrxMemoView;
begin
for i:=0 to fMain.Memo3.Lines.Count - 1 do
begin
T:= TfrxMemoView(frxAIR1.FindObject('Memo156'));
T.Memo.Lines.Add( fMain.Memo3.Lines[i]);
T:= TfrxMemoView(frxAIR1.FindObject('Memo157'));
T.Memo.Lines.Add( fMain.Memo3.Lines[i]);
T:= TfrxMemoView(frxAIR1.FindObject('Memo158'));
T.Memo.Lines.Add( fMain.Memo3.Lines[i]);
// и так далее...
end;
frxAIR1.ShowReport;
end;
