摘要：unit Form_ToChangCSVforDBFU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls;type TForm_ChangCSVToDBFF = class(TForm) PopupMenu1: TPopupMenu; DataSource1: TDataSource; DBGr... 阅读全文

摘要：Edit1.Text:=ChangeFileExt(ExtractFileName(Application.ExeName),'') ; //获取到应用程序名后，将后缀名清空就可以啦。 阅读全文

摘要：table2.Close; table2.Active:=false; table2.Exclusive:=true; table2.TableName:='h:\gzkd\sds'; table2.TableType:=ttFOXPRO; with table2.FieldDefs do begin clear; with addfielddef do begin name:='bh'; datatype:=FTSTRING; size:=6; end; with addfielddef do begin name:='xm'; ... 阅读全文

摘要：双击代码全选12345678910111213141516unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObj... 阅读全文

摘要：根据一个已有的点集合，想画出一条光滑的曲线有很多种算法。其中一种比较快捷的是使用贝塞尔曲线，有成熟的PolyBezier方法可以直接调用。但是有一个问题需要注意，就是贝塞尔曲线对点集合是有要求的，如果不满足要求，就不会得到你想要的曲线。如何满足要求呢，先要理解贝塞尔曲线的原理。简单点说：贝赛尔曲线的每一段曲线都要一个起点，一个终点，两个控制点（用于控制曲线的弧度）。所以点数组的记录方式是：起点＋控制点＋控制点＋终点＋控制点＋控制点＋终点＋……。也就是说，点的数量应该是3×n+1.明白了道理，我们就可以修正任何一个点数组了，我实现的算法如下：//贝塞尔曲线点位修正function Ad 阅读全文

摘要：DateUtils时间单元说明CompareDate函数比较两个日期时间值日期部分的大小CompareDateTime函数比较两个日期时间值的大小CompareTime函数比较两个日期时间值时间部分的大小DateOf函数去除日期时间值的时间部分DateTimeToJulianDate函数转换日期时间值为儒略日DateTimeToModifiedJulianDate函数转换日期时间值为改进的儒略日DateTimeToUnix函数转换日期时间值为Unix/Linus日期时间值Dayofweek函数常量*ISO8601标准中一周各天顺序的常量DayOf函数返回一个日期时间值的天DayOfTheMon 阅读全文

摘要：如何去掉delphi2010的欢迎界面(welcome page)方法一： 在电脑开始菜单下，找到delphi的快捷菜单，点击该菜单的属性，在“目标”的内容中，最后添加“-np”即可。如：D:\Win7\Embarcadero\Studio\15.0\bin\bds.exe -pDelphi -np 阅读全文

摘要：Delphi深度探索－CodeSite应用指南 Delphi虽然为我们提供极其强大的调试功能，查找Bug仍然是一项艰巨的工作，通常我们写代码和调试代码的所消耗的时间是大致相同的，甚至有可能更多。为了减少无谓的时间和精力的浪费，有时我们还是需要专业调试工具的帮助来提高锁定Bug的效率。本文中我们将介绍著名的调试工具CodeSite Pro 2.0（它获得了2000年度Delphi Informant读者选择的最佳调试工具奖的第二名）。它的官方网址是www.raize.com。 CodeSite的主要功能是可以让开发者使用代码来发送运行时的详细信息到特殊的接收器，以便于进一步分析。更精确的说通过C 阅读全文

摘要：//这段代码在Delphi 2007和delphi 7下是可以执行的，所以正确使用结构体数组和指针应该是这样的，已验证unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private ... 阅读全文

摘要：就一个button事件procedure TForm1.btn7Click(Sender: TObject); Type TMyArr = array of array of array of Integer; {定义一个三维动态数组类型} Pint = ^TMyArr; var PArr: Pint; {动态数组指针变量} i,j,k,ic,jc,kc: Integer; begin Memo1.Lines.Clear; {用作维数的变量} ic := 2; jc := 3; kc := 4; {分配内存; 按说动态数组还需要 8 个管理字节, 我不知... 阅读全文

摘要：form.Free - 释放Form占用的所有资源。Free后，Form指针不能再使用，除非对Form重新赋值。 form.Hide - 隐藏Form。可以调用form.Show再一次显示。 form.close - 关闭Form，实际的结果取决于OnCloseQuery和OnClose,如果OnCloseQuery的CanClose为False,不执行任何操作，如果为True,进一步考察OnClose的Action的值: caNone: 不执行任何操作 caHide: 隐藏窗口，同form.Hide caFree: 释放Form占用的资源，同form.Free caMinimi... 阅读全文

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Clic... 阅读全文

只有注册用户登录后才能阅读该文。

摘要：好多程序都给结构体变量设定了一个结构体指针 例如：PAbc = ^TAbc;TAbc = recorda: string[10];b: string[5];c: string[1];end;var Abc: PAbc;New(Abc);...Dispose(Abc); ... 我不清楚这是为什么 定义结构体变量的时候可以直接 var Abc: TAbc; 这样做啊，为什么要PAbc = ^TAbc;呢？仅仅是为内存的分配与释放么？ 回答： 这个问题实际上与Delphi 的语法结构有着密切的关系。因为Delphi 所使用的语言是Pascal 所以在Pascal 中结构体与C++的结构体有着很多相 阅读全文

摘要：看你要做什么，比较现在网络很流行的QQ、MSN这些软件都屏蔽了，你可能还可以访问一些小软件的这些控制，思路及方案如下(API函数自己去百度查一下)1.得到你要这个窗口的句柄 使用FindWindow2.利用枚举函数EnumChildWindows把这个窗口里的所有文本框、按钮找到，并得到其句柄，EnumChildWindows需要一个回调函数，你可以在回调函数中把模拟输入，单击双击这些操作加上去3.在回调函数里，其实就是向你找到的按钮或文本框发送消息消息说明:比如得到文本框中的文字消息：WM_GETTEXT设置文本框的文字消息：WM_SETTEXT鼠标左键单击WM_LBUTTONDOWN必须与 阅读全文

摘要：引数：1. Text：要显示的讯息2. Caption：讯息视窗的标题列文字3. Flags：讯息旗标 3.1. 可指定讯息视窗上的图示 3.2. 可指定讯息视窗出现的按钮 3.3. 可指定预设Focus在哪一个按钮 3.4. 可指定是否 Modal 3.5. 其他引数说明：Text、Caption 引数为 PCahr 型态，字串型态的变数可用 PChar()转换，若直接传入一个字串的话，就不用转型。例如：var s: string;....s := '存档失败'; Application.MessageBox(PChar(s), '错误', MB_ICONER 阅读全文