rajeev_kumar
Hi,
I am getting this message when trying to print report..... ( Could not run program: Label9OnGetText " is not a valid Integer value )...... how can I fix this????? Below is the code of label9ongettext.
please thanks
object raProgramInfo2: TraProgramInfo
raClassName = 'TraEventHandler'
raProgram.ProgramName = 'Label10OnGetText'
raProgram.ProgramType = ttProcedure
raProgram.Source =
'procedure Label10OnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text' +
' := (IntToStr(StrToInt(DBCalc1.Text) +'#13#10' '#9' StrTo' +
'Int(DBCalc2.Text) +'#13#10' StrToInt(DBCalc3.Text' +
')) ;'#13#10#13#10'end;'#13#10
raProgram.ComponentName = 'Label10'
raProgram.EventName = 'OnGetText'
raProgram.EventID = 53
end
Thanks
Rajeev