var T:TfrMemoView; t:= TfrmemoView(frReport1.FindObject('memo1')); if t <> nil then BEGIN T.Memo.CLEAR; T.Memo.Add('123456');END;
procedure TFrmTaxPrint.frReport1BeforePrint(Memo: TStringList; View: TfrView); begin if view.Name ='Memo1' then view.Memo.Text :='123456'; end;var t:tfrmemoview; n,i:integer; s:string; begin t:=tfrmemoview(frreport.findobject('memo1')); t.Memo.Text:='123456'; end;
t:= TfrmemoView(frReport1.FindObject('memo1'));
if t <> nil then BEGIN T.Memo.CLEAR;
T.Memo.Add('123456');END;
View: TfrView);
begin
if view.Name ='Memo1' then
view.Memo.Text :='123456';
end;var
t:tfrmemoview;
n,i:integer;
s:string;
begin
t:=tfrmemoview(frreport.findobject('memo1'));
t.Memo.Text:='123456';
end;