用FastReport 3.0做了个通用的报表生成器,数据源是不确定的。
在该项目中写了个金额转大写的函数function NumToChar(Num : Double) : String;
想在FastReport的Memo事件中用,procedure Memo17OnBeforePrint(Sender: TfrxComponent);
begin
Memo17.Text := NumbersCapitalization(StrToFloat(Memo18.Text));
end;但在打印时老报错;说传入的不是有效的浮点值
实在是头疼!
在该项目中写了个金额转大写的函数function NumToChar(Num : Double) : String;
想在FastReport的Memo事件中用,procedure Memo17OnBeforePrint(Sender: TfrxComponent);
begin
Memo17.Text := NumbersCapitalization(StrToFloat(Memo18.Text));
end;但在打印时老报错;说传入的不是有效的浮点值
实在是头疼!
解决方案 »
- 好久没发贴,发个贴问候一下
- 请问如何获取SQL和Oracle数据库文件的位置和大小?
- 如何在Form中增加事件?
- 关于在ShellTreeView中获取选中文件夹中所有文件绝对路径的问题。
- 如何获得IE状态栏中的内容???
- Label标签不能全部显示问题………………急在线等待
- 隱藏列標題
- 如何在光标所在位置发送按键消息?
- 大家帮忙看看这段代码,运行是老是报错啊!!!
- Win98+Dephi5+access2000+ODBC:如何判断access2000中文本,数值,日期型字段为空,或清空该字段?以下语句不行
- DELPHI2006 UPDATE1 USES WINDWOS 也报错
- 问个关于dbgrideh的滚动条问题
请问如何可解决以上问题或如何获得Memo打印时显示的值
var
myMemo: TfrxMemoView;
begin
myMemo := TfrxMemoView(frxReport1.FindObject('Memo15'));
if myMemo <> nil then
myMemo.Memo.Text := '11111';
end;
procedure TF_client.ToolButton6Click(Sender: TObject);
var
myMemo: TfrxMemoView;
begin
myMemo := TfrxMemoView(frxReport1.FindObject('Memo15'));
if myMemo <> nil then
myMemo.Memo.Text := '11111';
frxReport1.print;end;
你Memo17打印的时候,Memo18里还没数据吧!第二,StrToFloat改为StrToFloatDef函数吧!
但你给的答案不是我想要的
我的意思是指
如将Memo18显示出来的值传入我的自定义变量中?
1、无计算的
Memo17.Text := NumbersCapitalization(<Table1."字段名">);
2、有计算的
Memo17.Text := NumbersCapitalization(<SUM(<Table3."字段名1">*<Table2."字段名2">)>);