procedure TForm1.PrinterSetupExecute(Sender: TObject);begin PrinterSetupDialog1.Execute;end;procedure TForm1.PrintExecute(Sender: TObject);begin //列印分
转载
2016-03-04 14:47:00
314阅读
2评论
获取默认打印机名：function TForm1.GetDefaultPrinterName: string;
var
iSize: Integer;
sIniFile, sSection, sKeyName: PChar;
begin
iSize :=&n
原创
2013-12-30 10:13:27
6818阅读
type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; {...} procedure TForm1.FormCreate(Sender: TObject); begin { tell printer to go to th
转载
2010-09-18 21:45:00
457阅读
2评论
DELPHI DATASNAP 2010 入门操作(1)为什么要用datasnap 2010 DELPHI DATASNAP 2010 入门操作(2)不写一行代码，绿色三层我也行 很久前写了点入门的资料，写得很不好，但是发现还是有很多人看了转了， 我写的东西都是很简单的，估计在行业里面混了几年的朋友，肯定会骂，这么没水平的，也好意思放出来？不过对于我来
揭阳红砖打包带，我公司同时代理瑞士RROMM电气动打包工具和日本KOHAN气动打包工具、缠绕机等包装设备，配套销售塑料护角、纸护角、拉伸膜、打包扣等包装辅料，欢迎各界朋友莅临参观、指导和业务洽谈。揭阳红砖打包带， 首先，将纸护角与打包带一起使用。在纸箱，印版，金属管和其他物品的每个角上单独放置一个纸护角，并用打包带将其拧紧。纸护角 是多张牛皮纸复贴后，经护角机定型压制而成，主要有L形和U形。纸护角
{ paper selections } {$EXTERNALSYM DMPAPER_LETTER} DMPAPER_LETTER = 1; { Letter 8 12 x 11 in } {$EXTERNALSYM DMPAPER_FIRST} DMPAPER_FIRST = DMPAPER_LE
转载
2019-10-14 08:07:00
726阅读
Delphi Variant 通用类型[4] 通用数组的通用(变体)数组 var Arr: array[0..1] of Variant; begin Arr[0] := 111; Arr[1] := '你好！'; Arr[2] := VarArrayOf([10,'Delphi7',20]); /
转载
2020-12-22 14:57:00
326阅读
2评论
[code="c++"]Printer.BeginDoc; // 设置 MyRect1 在打印机画布的位置和大小 Printer.Canvas.StretchDraw(MyRect1,Image1.Picture.Bitmap); // 设置 MyRect2 在打印机画布的位置和大小 Printer.Canvas.StretchDraw(M...
原创
2023-04-27 16:20:05
519阅读
delphi文件打包方式 一创建.RES文件这里以一组音频文件为例。首先用记事本等所有文本编辑器编写文件“MyMusic.RC”。文件的格式及内容如下： SRC1 FILE1 OnlyYou.mp3
SRC2 FILE2 YesterdayOnceMore.mp3
SRC3 FILE3 MoonRiver.mp3 其中，每一行表示声明一项资源，每一项资源的声明包含三个
转载
2023-11-28 13:27:48
83阅读
var
mdevice : array[0..255] of char;
mdriver : array[0..255] of char;
mport : array[0..255] of char;
mhdmode : thandle;
mpdmode : pdevmode;
begin
printer.getprinter(mdevice, mdriver, mpo
转载
精选
2006-08-01 17:18:52
5001阅读
2评论
1.添加声明 f_count1: double; 2.得到拆分页数量 // Modified by 884 2018-04-20 14:50:18 AM0057 with aqTpCount do begin Active := false; sql.Clear; s_sql := 'select
转载
2018-04-20 15:54:00
189阅读
2评论
//PDevMode = _devicemodeW;// _devicemodeW = record// dmDeviceName: array[0..CCHDEVICENAME - 1] of WideChar; {打印设备名称,唯一值}// dmSpecVersion: Word; {DevMo
转载
2019-10-07 10:03:00
327阅读
2评论
android:layout_width="match_parent"
android:layout_height="match_parent" >
<EditText
android:id="@+id/print_data"
android:layout_width="match_parent"
android:layout_
Delphi ListView快速操作通用实现作者：成晓旭众所周知，Delphi ListVie
转载
2007-12-17 10:31:00
53阅读
[转]关于Delphi通用涵数
DELPHI程序注册码设计（转载） 思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则提示要求注册. <注册例程> 在DELPHI下新建一工程,放置Edit1,Edit2,Label1,Lab
转载
2017-03-01 02:03:00
1690阅读
2评论
Delphi Excel导入
转载
2019-02-24 15:00:00
43阅读
2评论
问题：tagTVITEMA = packed record mask: &nb
Delphi Excel导入 的通用程序 .分类： delphi 2012-09-24 18:19 127人阅读 评论(0) 收藏 举报 exceldelphiintegerprocedure TForm1.btnClick(Sender: TObject);begin OpenDialog1.Title := '请选择正确的excel文件'; OpenDialog1.Filter := 'Excel(*.xls)|*.xls'; if OpenDialog1.Execute then edit1.Text := OpenDialog1.FileName;end
转载
2013-05-24 13:52:00
72阅读
在office工具中完成一份文件后，有时候我们会把文件导出为pdf格式，再把pdf文件发送出去(相较于其他格式文件，pdf文件更方便传阅)。当然啦，办公室里面少不了打印文件这个日常工作，打印pdf文件是基本的办公技巧。
转载
2023-06-16 08:31:37
371阅读
Excel 导入
转载
2019-02-01 19:09:00
248阅读
2评论
