BG6RSH's 随记.

Delphi过程函数传递参数的几种方式

发表于2010年1月23日由admin

在Delphi过程、函数中传递参数几个修饰符为Const、Var、Out。另一种不加修饰符的为默认按值传递参数。

一、默认方式以值方式传递参数

procedure TForm1.ProcNormal(Value: string);
begin
  origNum := Value + ' Me';
  lblReturn.Caption := origNum; // OrigNum为'Hello Me'
  lblOrig.Caption := Value; // Value为'Hello'
end;

//调用： 
origNum:='Hello'; 
ProcNormal(OrigNum);

procedure TForm1

…

发表在编程 | 标签为 Delphi | 留下评论

Delphi2010小写金额转大写金额的源代码

发表于2009年12月17日由admin

由于从Delphi2010开始支持大字符集，原来一个汉字占２个字节，现在Delphi2010中占一个字节，所以原函数在Delphi2010下已不能用了，现将原函数修改如下： …

发表在编程 | 留下评论

在WIN2000/XP下添加自定义纸张

发表于2009年11月3日由admin

在Windows2000/XP/2003等系统中的自定义纸张的编号已经不是WIN98中256了,而是采用了一种新的标注方式,这里提供一个在Windows2000/XP/2003等系统中创建自定义纸张的函数,可以在套打编程中用到.

//增加规格自定义纸张    
//PaperName: 自定义纸张名称    
//PaperWidth: 纸张的宽度，以0.1mm为单位    
//PaperLength: 纸张的高度，以0.1mm为单位    
procedure TDM.AddCustomPaper(const PaperName: string; PaperWidth, PaperLength:integer);    
var    
  PrintDevice, PrintDriver, PrintPort : array[0..255] of Char;    
  hDMode : THandle;    
  hPrinter : THandle;    
  FormInfo : TFormInfo1;    
begin    
  Printer.GetPrinter(PrintDevice, PrintDriver, PrintPort, hDMode);    
  OpenPrinter(PrintDevice, hPrinter, nil);

…

发表在编程 | 留下评论

Delphi过程函数传递参数的几种方式

Delphi2010小写金额转大写金额的源代码

在WIN2000/XP下添加自定义纸张

近期文章

近期评论

分类

其他操作

友情链接