delphi filestream procedure TForm1.Button1Click(Sender: TObject); var f1:TFileStream; filename:String; begin OpenDialog1.Execute ; filename:=OpenDialog1.FileName ; f1:=TfileStream.Create (filename,fmopenread); try &n... 2012年04月04日 程序设计 暂无评论 阅读全文
Delphi自动检测U盘插入、拔出及获取U盘盘符 Delphi自动检测U盘插入、拔出及获取U盘盘符 //检测U盘插入、拔出 测试通过 1、新建工程; 2、定义一个私有过程 procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; 完整代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, &nb... 2012年04月04日 程序设计 暂无评论 阅读全文
Delphi ListView基本用法大全 Delphi ListView基本用法大全 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1].Caption:='type'; ListView1.Columns.Items[2].Caption:='title'; ListView1.Columns.Items[2].Width:=300; Listview1.ViewSt... 2012年04月04日 程序设计 暂无评论 阅读全文
AutoCAD二次开发语言及工具 AutoCAD荣登全球绘图软件的龙头宝座,主要是因为它具有开放的体系结构。它允许用户和开发者采用高级编程。AutoCAD提供丰富的二次开发接口,为广大二次开发者提供了众多的选择,下面简单的介绍一下常见的几种开发语言 1、AutoLISP AutoLISP的全名是List Processing Language,它出现于1985年推出的AutoCAD R2.18中,是一种嵌入在AutoCAD内部的编程语言,是LISP原版的一个子集,它一直是低版本AutoCAD的首选... 2012年04月04日 程序设计 暂无评论 阅读全文
delphi程序格式化字符串 function Format(const Format: string; const Args: array of const): string; Format字符串说明: "%" [index ":"] ["-"] [width] ["." prec] type (1) 格式化字符串必须以%开头 (2) [index ":"] 索引指的是Args参数列表中要显示的每一项的序号。比如:Args是 &nb... 2012年04月03日 程序设计 暂无评论 阅读全文
AutoCAD中获得曲线长度的VBA代码 Option Explicit Function TotLen(oSset As AcadSelectionSet) As Double Dim oEnt As AcadEntity For Each oEnt In oSset If TypeOf oEnt Is AcadPolyline Or _ TypeOf oEnt Is AcadLWPolyline Or _  ... 2012年03月14日 程序设计 暂无评论 阅读全文
Delphi二次开发AutoCAD(二)—一个简单的程序 在深入学习之前,我们首先通过一个简单的程序例子来看一下Delphi对AutoCAD二次开发有什么样的效果。本程序实现AutoCAD程序的打开和关闭。 1.1 Delphi与AutoCAD连接 在程序与AutoCAD进行控制的时候,必须要通过一个桥梁,而这个桥梁需要通过我们的代码来实现。只有实现了程序与AutoCAD之间的通讯,才能进行下一步的工作。再次我们为您提供一个Delphi连接AutoCAD的样板代码,每次进行开发的时候您可以通过修... 2012年03月14日 程序设计 暂无评论 阅读全文