Accsess Violation while assigning a value to MemoView

Comments

• Anu de Deus Hampshire, UK

  April 2010 edited 1:51AM

  What is your 'onPreview'? is it a button on your form?
• Juhas

  April 2010 edited 1:51AM

  Anu de Deus wrote: »

  What is your 'onPreview'? is it a button on your form?

  
  This is my memo on report.
  
  I have deleted this event and try to assign a text somewhere else:
  
  myMemo.text:='Hello';
  
  I don't get access violation anymore, but the text doesn't change
• OlegK

  April 2010 edited 1:51AM

  Try to use this code in OnPreviewDblClick:

    TfrxMemoView(Sender).Memo.Text := 'Hello';
    Modified := true;
  
• Juhas

  April 2010 edited April 2010

  OlegK wrote: »

  Try to use this code in OnPreviewDblClick:

    TfrxMemoView(Sender).Memo.Text := 'Hello';
    Modified := true;
  

  
  
  OK, that works but what I really need to to is to change the text in other event handler. So SENDER is not taken under consideration, what's more "MODIFIED" is said to be undeclared identifier.
  
  What is strange is that:
  

  myMemo.Text:='Hello';
  showMessage(myMemo.Text);
  

  
  ShowMessage shows "Hello" while myMemo stays blank
• OlegK

  April 2010 edited 1:51AM

  wrote:

  OK, that works but what I really need to to is to change the text in other event handler.

  What event handler you want to use?
• Juhas

  April 2010 edited April 2010

  OlegK wrote: »

  OlegK wrote: »

  OK, that works but what I really need to to is to change the text in other event handler.

  What event handler you want to use?

  
  OnAfterPrint of other MemoView(lets call it "loadsMemo").
  
  This sumMemo holds result of an aggregate function, so this is the only place where I can get this result into variable.
  Then I make some other calculations and want to assign the result to myMemo:
  
  ForExample:

  var
    loads: integer;
  
  procedure loadsMemoOnAfterPrint(Sender: TfrxComponent);
  begin    
    loads:=StrToInt(loadsMemo.Text);
                                                                  
    if loads = 0 then totalIDXMemo.Text:='0'
    else                         
         totalIDXMemo.Text:=FloatToStr(loads*100);
  end;
  
• OlegK

  April 2010 edited 1:51AM

  wrote:

  This sumMemo holds result of an aggregate function, so this is the only place where I can get this result into variable.

  Add variable to report:

  var
    s: integer;
  

  and in OnBeforePrint event handler of totalIDXMemo write you agregate function:

  procedure totalIDXMemoOnBeforePrint(Sender: TfrxComponent);
  begin
    s := SUM(<ADOQuery1."CustNo">,MasterData1);    
  end;
  

  In memo totalIDXMemo write this:

  [s]
  
• Juhas

  April 2010 edited 1:51AM

  It doesn't work. "Cannot convert null value into integer"