Function CutString(SrcString:string;n:integer;Pattern:String):string;是我定义的函数。
问:
TfrxMemoView.Create(theReport).Text := '[CutString(<frxDBDatasetPrint."as">,1,'''+'|'''+')]';
这样写对么?引号有没写错,我是要cutstring(字段内容,1,'|')这样的效果。哪位帮忙看看。
问:
TfrxMemoView.Create(theReport).Text := '[CutString(<frxDBDatasetPrint."as">,1,'''+'|'''+')]';
这样写对么?引号有没写错,我是要cutstring(字段内容,1,'|')这样的效果。哪位帮忙看看。
解决方案 »
- 我们讨论一下Delphi编写驱动程序的问题。
- 请教系统日志维护问题。
- 考验高手,quickrep的分页问题
- 为什么我修改不了表结构?
- 没分了,一个简单问题帮下忙
- 请教大家一下,关于库存管理软件一般卖多少钱?(有过此类经验的高手请进来)
- 如何获得当前活动的窗口,并关掉多余的以打开的窗口?
- 高兴散分,今天收到MICROSOFT的T恤。顺便请大家帮我找个无限制的“几何画板”
- 类型转换问题,请支援!!大弟在此先谢了!在线等候。。。
- 如何使用API中的ping功能?最好给个例子!谢谢
- Delphi拥抱PHP,下一步是Ruby?
- 请问DELPHI中是如何把已经调用到Stringgrid1中的数据保存成EXCEL格式的?
//---为报表准备的函数
function ChinaDate(Sdate:Tdatetime):string;
function GetWorkerName(Number:string):string;
function GetPrinter(Number:string):string;
//---为报表准备的函数
...
分开实现上述三个函数:function TFrm1.ChinaDate(Sdate: Tdatetime): string;
begin
...
end;function TFrm1.GetWorkerName(Number: string): string;
begin
...
end;function TFrm1.GetPrinter(Number:string): string;
begin
...
end;最后在frReport中的UserFunction事件定义各事件:
procedure TFrm1.frReportPrintUserFunction(const Name: String; p1, p2,
p3: Variant; var Val: Variant);
begin
if AnsiCompareText('UpperDate', Name) = 0 then Val:=ChinaDate(frParser.Calc(p1));
if AnsiCompareText('WorkerName', Name) = 0 then Val:=GetWorkerName(frParser.Calc(p1));
if AnsiCompareText('Operater', Name) = 0 then Val:=GetPrinter(frParser.Calc(p1));
end;