06 2008 档案

关于PChar和String的转换
摘要：1、PChar到string的转换可直接赋值，如：X: string;Y: PChar;X := '1';Y := '2';X := Y; // X=22、string到PChar的转换一般情况下都可以用PChar('')来强制转换Y: PChar;Y := PChar('2'); //强制转换。但有些情况下如果强制转换，会有字符被截取，结果不完整，如：functionReplaceString(... 阅读全文
posted @ 2008-06-16 10:43 sonicit 阅读(4386) 评论(0) 推荐(0)
FastReport打印空行
摘要：varPageLine:integer;//现在打印到第几行PageMaxRow:integer=15;//空行行数procedureMasterData1OnBeforePrint(Sender:TfrxComponent);beginPageLine:=<Line>modPageMaxRow;if(PageLine=1)and(<line>>1)thenEngin... 阅读全文
posted @ 2008-06-11 16:27 sonicit 阅读(2025) 评论(4) 推荐(1)
判断程序是否正在运行
摘要：function IsRuning(const AObjectName: string): Boolean;{AObjectName='aaa.exe'} var lppe : TProcessEntry32; sshandle: Thandle; found: boolean; begin Result := False; sshandle := CreateToolhelp... 阅读全文
posted @ 2008-06-10 12:03 sonicit 阅读(1122) 评论(0) 推荐(0)
FastReport调用Delphi中的自定义函数（人民币大写金额）
摘要：人民币大写金额转换函数 function MoneyToCn(ANumberic: Real): string; const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; function StrTran(const S, s1, s2: string): string; begin Result := Stri... 阅读全文
posted @ 2008-06-03 21:28 sonicit 阅读(3265) 评论(0) 推荐(0)