懒猫窝窝

procedure TForm1.Button1Click(Sender: TObject); var    f1:TFileStream;       filename:String; begin    OpenDialog1.Execute ;    filename:=OpenDialog1.FileName ;    f1:=TfileStream...

Delphi自动检测U盘插入、拔出及获取U盘盘符 //检测U盘插入、拔出 测试通过 1、新建工程； 2、定义一个私有过程 procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; 完整代码如下： unit Unit1; interface uses    Windows, Messages, SysUtils, Va...

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].Cap...

AutoCAD荣登全球绘图软件的龙头宝座，主要是因为它具有开放的体系结构。它允许用户和开发者采用高级编程。AutoCAD提供丰富的二次开发接口，为广大二次开发者提供了众多的选择，下面简单的介绍一下常见的几种开发语言 1、AutoLISP AutoLISP的全名是List Processing Language，它出现于1985年推出的AutoCAD R2.18中，是一...

  function Format(const Format: string; const Args: array of const): string;   Format字符串说明：   "%" [index ":"] ["-"] [width] ["." prec] type   (1) 格式化字符串必须以%开头   (2) [index ":"] 索引指的是Args参数...

Option Explicit Function TotLen(oSset As AcadSelectionSet) As Double Dim oEnt As AcadEntity For Each oEnt In oSset     If TypeOf oEnt Is AcadPolyline Or _    &nbs...

在深入学习之前，我们首先通过一个简单的程序例子来看一下Delphi对AutoCAD二次开发有什么样的效果。本程序实现AutoCAD程序的打开和关闭。 1.1 Delphi与AutoCAD连接 在程序与AutoCAD进行控制的时候，必须要通过一个桥梁，而这个桥梁需要通过我们的代码来实现。只有实现了程序与AutoCAD之间的通讯，才能进行下一步的工作。...