随笔档案「2010年8月」 - beeone

Array of const 形式的参数可以传递不同类型的参数

摘要：正如你所能想到的，由于Array of const 形式的参数可以传递不同类型的参数，使得接收这些参数的函数和过程工作起来比较困难。作为一个例子，下面的代码是WhatHaveIGot()过程的实现，在这个例子中依次判断每一个数据的类型，并在屏幕上显示数据的序号和类型：阅读全文

posted @ 2010-08-30 12:58 beeone 阅读(330) 评论(0) 推荐(0)

实时语音通信的实现

摘要：仍觉捉襟见肘，好在有VCKBASE的帮忙，确实学到了不少东西，www.vckbase.com也成了我每次上民网必到之处（阁下有所不知，鄙人接受最为严格的管理，上民网是要申请的）。近日在做一个通信方面的程序，实时的语音和视频通信当然是大家所喜欢的。本文将向您展示局域网环境下实时语音通信的的一个解决方案(视频这一块正在做，估计很快就能出炉)，Winxp环境下测试效果良好，并且具有网络拥塞处理机制... 阅读全文

posted @ 2010-08-30 10:35 beeone 阅读(2642) 评论(0) 推荐(0)

delphi 开放数组参数

摘要：在函数中如果数组的个数不定，可以使用开放数组参数实参可以接受静态数组和动态数组 procedure p1(a:array of Byte); begin ShowMessage( IntToHex( Integer(@a),2)); ShowMessage(IntToStr(a[0])); end; procedure TForm1.btn1Click(Sender: TObject)... 阅读全文

posted @ 2010-08-30 10:31 beeone 阅读(1371) 评论(0) 推荐(0)

SPCOMM控件在Delphi7.0串口通信中的应用

摘要：SPCOMM控件在Delphi7.0串口通信中的应用摘要：利用Delphi开发工业控制系统软件成为越来越多的开发人员的选择，而串口通信是这个过程中必须解决的问题之一。本文在对几种常用串口通信方法分析比较的基础上，着重讨论了Delphi开发环境下利用Spcomm控件实现PC机与单片机之间串口通信的方法，研究了Spcomm串口通信的关键技术问题，并通过一个实例给出了Spcomm控件在Delphi7.0... 阅读全文

posted @ 2010-08-24 17:16 beeone 阅读(2725) 评论(0) 推荐(0)

把DBGrid导出到Excel表格（支持多Sheet）

摘要：{ 功能描述：把DBGrid输出到Excel表格（支持多Sheet）调用格式：CopyDbDataToExcel([DBGrid1, DBGrid2]); } procedure CopyDbDataToExcel(Args: array of const); var iCount, jCount: Integer; XLApp: Variant; Sheet: Variant; ... 阅读全文

posted @ 2010-08-24 17:15 beeone 阅读(463) 评论(0) 推荐(0)

SQL Server 数据库转换为 Access 数据库

摘要：最近正在升级一个程序，使其支持多数据库。原来的程序数据库为SQL Server，所以使用SQL Server 的“导入和导出数据”功能将一个 SQL Server 数据库转换成了Access数据库，但其中发现了一些问题，但也找到了解决方案，一并记录于此：1、转换程序会将SQL Server的视图转换成表，而不是Access的查询；2、在为字段设置默认值为空字符的时候，SQL... 阅读全文

posted @ 2010-08-24 17:14 beeone 阅读(1884) 评论(0) 推荐(0)

最安全简单的sql2000数据库日志文件清除或者减小办法

摘要：相信很多使用sql2000,mssql的朋友都对日志文件过大严重影响数据库运行想过办法吧.笔者也一样.数据文件只有1G,但长期的数据库日志文件却有10G了,因为数据比较重要,有些手段又不好使用.现在笔者找到一个最佳最安全的针对减小数据库日志文件的办法.因为使用收缩数据库并不好使用.收缩日志文件也没有多大效果.笔者这里介绍一个最安全的减小mssql数据库日志文件的方法:1.首先,请大家备份一次数据库... 阅读全文

posted @ 2010-08-24 17:13 beeone 阅读(13031) 评论(0) 推荐(0)

delphi与Access数据库连接的步骤

摘要：1，新建Project。 2，在FORM中放入ADOConnection控件。 3，双击ADOConnection控件，然后点击Build...按钮，在“提供者”页中选择“Microsoft Jet 4.0 OLE DB Provider”，然后点击“下一步”按钮，在“连接”页中选择要连接的Access... 阅读全文

posted @ 2010-08-24 17:12 beeone 阅读(5351) 评论(0) 推荐(0)

数据库日志超过 4G 数据库不能正常工作的原因

摘要：情况：在SP3系统D：/下有个数据库，D：/为80G，在是程序运行时，程序读数据库死掉。打开SQl server2000 数据库的企业管理器，发现数据库出现异常；原因：由于D：/的数据库文件的日志超过了4G，而且，D:/的硬盘格式是FAT32.（FAT32格式下的单个文件不能超过4G）解决：开始--->运行--->cmd--->回车进入dos界面--->“Con... 阅读全文

posted @ 2010-08-16 14:54 beeone 阅读(549) 评论(0) 推荐(0)

输入年，月，显示当月的天数

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TE... 阅读全文

posted @ 2010-08-16 09:22 beeone 阅读(271) 评论(0) 推荐(0)

Delphi 关键字详解[absolute,]

摘要：absolute 阅读全文

posted @ 2010-08-14 08:08 beeone 阅读(1724) 评论(0) 推荐(0)

Pascal 特有的集合

摘要：集合是Pascal特有的数据类型，集合用一种有效的手段来表示一组有序数、字符和枚举值。声明一个集合用关键字 Set Of ，并在其后跟上有序类型或一个集合可能值的有限子集。示例如下：Type　　TCharSet = Set Of Char ； //可能的值： #0-#255；　　TEnum = （Monday，Tuesday，Wednesday，Thursday，Fridy）；　　TEnumSet... 阅读全文

posted @ 2010-08-13 14:53 beeone 阅读(916) 评论(0) 推荐(0)

Delphi使用spcomm实现串口通信基础知识及（两个实例）

摘要：心得如果你已经会使用SPCOMM且出现10个以上的串口问题请改一下串口名COM1.CommName='\\.\com18';就这样加'\\.\'就行了我也不知道什么回事.......以下为抄录不知道是谁的Delphi 是新一代可视化开发工具，它具有功能强大、简便易用和代码执行速度快等特点，是全球公认的快速应用开发工具技术的先驱者，它越来越在构架企业信息系统方面发挥着重要作用。由于Delphi 这... 阅读全文

posted @ 2010-08-12 17:06 beeone 阅读(32325) 评论(4) 推荐(1)

内存分配和释放函数

摘要：内存分配和释放函数表内存分配函数内存释放函数AllocMem（）------------ FreeMem（）GlobalAlloc（）------------GlobalFree（）GetMem（）------------FreeMem（）New（）------------ Dispose()StrAlloc()------------StrDispose()StrNew()----------... 阅读全文

posted @ 2010-08-12 13:59 beeone 阅读(320) 评论(0) 推荐(0)

ShortString 转化成 PChar类型

摘要：警告：Win32 API函数需要以Null结尾的字符串，不要把ShortString字符串传递给API函数，因为编译器将报错，长字符串可以传递给Win32 API函数。下面这个ShortStringAsPChar（）函数时在STRUTILS.PAS单元中定义的Function ShortStringAsPChar（Var S ：ShortString）：PChar；{这个函数能是一个字符串以Nul... 阅读全文

posted @ 2010-08-12 11:39 beeone 阅读(621) 评论(0) 推荐(0)

String类型转化成PChar类型需要注意

摘要：String类型转化成PChar类型需要注意：　　如果使用了将AnsiString字符串强制转换为PChar类型的函数和过程，在使用结束后，要手工把它的长度恢复为原来以Null结束的长度。STRUTILS单元中的RealizeLenght（）函数可以实现这一点：procedure REAlizeLength(var S : String);begin　　SetLength(S,StrLen(PCh... 阅读全文

posted @ 2010-08-12 11:17 beeone 阅读(1048) 评论(0) 推荐(0)

长度和分配

摘要：第一次声明AnsiString时，它是没有长度的，因此在字符串中就没有为字符分配空间。为了对字符串分配空间，用一行字母或另一个字符串对它进行赋值，或者用SetLength（）过程，就像下面所列出来的： Var　　S：String； //字符初始化时，没有长度。 begin　　S：=‘Doh！’ //为字符串的字母分配足够的空间 {或者} S：= OtherString ；/... 阅读全文

posted @ 2010-08-12 10:40 beeone 阅读(231) 评论(0) 推荐(0)

Pascal 、C/C++、 VisualBasic数据类型的对照表

摘要：阅读全文

posted @ 2010-08-12 09:33 beeone 阅读(267) 评论(0) 推荐(0)

笔记本终于阻止了系统待机了

摘要：笔记本终于阻止了系统待机了function SetThreadExecutionState(esFlags: DWORD ): DWORD; stdcall; external 'kernel32.dll';const ES_SYSTEM_REQUIRED = $00000001; ES_DISPLAY_REQUIRED = $00000002; ES_CONTINUOUS = $80000000... 阅读全文

posted @ 2010-08-11 17:26 beeone 阅读(347) 评论(0) 推荐(0)

把数据库表里的信息导入Execl表程序截图

摘要：uses　　Excel2000, Math, OleServer添加 ToolBar1, Gauge1,ImageList1,ExcelWorkbook1,ExcelWorksheet1,ADOConnection1,ADOQuery1,DataSource1 ,Memo1,DBGrid1,StatusBar1 阅读全文

posted @ 2010-08-11 17:18 beeone 阅读(510) 评论(0) 推荐(0)

在Object Pascal 中 ‘div’‘/’'Mod'

摘要：对不同的类型的表达式相除要选用不同的除法运算符：/ 是对浮点数做除法运算；div 是对整数做除法运算；mod 取模就是取余数；阅读全文

posted @ 2010-08-11 11:53 beeone 阅读(682) 评论(0) 推荐(0)

在Object Pascal 中 “：=” “=” “Is”

摘要：注意：在object Pascal中：= 运算符用来为一个变量赋值，而 = 运算符是比较两个操作数的值；　　 Is是比较符是用在对象之间，而 = 用于其他类型之间。阅读全文

posted @ 2010-08-11 11:41 beeone 阅读(177) 评论(0) 推荐(0)

Object Pascal 允许在const 和Var声明时用编译期间的函数

摘要：Object Pascal 允许在const 和Var声明时用编译期间的函数，这些函数包括Ord()、Chr（）、Trunc（）、Round（）、High（）、Low（）和Sizeof（）。例如，下列所有代码都是合法的：　　Type　　　　A = Array[1..2] of Integer;　　　　Cont　　　　　　w: word = SizeOf(Byte);　　　　Var　　　　　　i :... 阅读全文

posted @ 2010-08-11 11:37 beeone 阅读(244) 评论(0) 推荐(0)

变量赋值

摘要：当在Object Pascal 中声明一个变量时，变量名在类型的前面，中间用冒号隔开，变量初始化通常要跟变量声明分开。　　注意：IDE能自动赋初值的变量仅是全局变量，不是那些在过程或函数中局部变量。　　提示：Delphi编辑器自动对全局变量赋初值。当程序运行时，所欲的整数类型赋为0，浮点类型赋值0.0，指针为Null，字符串为空等，因此在源代码中不必对全局变量赋零初值。而过程或函数的局部变量需要赋... 阅读全文

posted @ 2010-08-11 10:17 beeone 阅读(383) 评论(0) 推荐(0)

缺省值参数

摘要：缺省值参数是在Dephi 4中被引进的（当调用有缺省值参数的过程和函数时，可以不提供参数）。为了声明一个有缺省值参数的过程或函数，在参数类型后跟一个等号和缺省值，示例如下：　　Procudure HasDefVal（S：String；I：Integer=0）；　　HasDefVal（）过程能用两种方式调用。　　第一种方式：两个参数都指定：　　HasDefVal（‘Hello&rsquo... 阅读全文

posted @ 2010-08-11 09:55 beeone 阅读(1440) 评论(0) 推荐(0)

UDL链接数据库的方法

摘要：UDL 链接数据库给程序编写提供了很大的方便之处，方便于程序切换不同的数据库类型，下面简单介绍下连接方法：新建一个文本文件改名为db.udl即可，双击即可运行。运行界面为：在程序里链接数据库的那一步改为链接UDL，方法如下：var dbStr: string; dbStr := extractfilepath(paramstr(0))+'db.udl'; dbStr := 'FILE NAME='... 阅读全文

posted @ 2010-08-05 14:22 beeone 阅读(574) 评论(0) 推荐(0)

WinAPI: SetTimer、KillTimer - 创建与移除高性能定时器

摘要：//创建定时器函数的声明: SetTimer( hWnd: HWND; {与定时器相关联的窗口句柄} nIDEvent: UINT; {指定一个非 0 的定时器标识符} uElapse: UINT; {指定间隔时间, 单位是毫秒} lpTimerFunc: TFNTimerProc {每到时间后, 要调用的函数... 阅读全文

posted @ 2010-08-05 11:51 beeone 阅读(297) 评论(0) 推荐(0)

Access和SQL2000中语句的区别

摘要：1 ，对于日期字段字段access表示为：#1981-28-12#SQLSERVER2000表示为：''1981-02-12''2,SQL语句区别，select ,update 在对单表操作时都差不多，但多表操作时update语句的区别ACCESS与SQLSERVER中的Update语句对比:SQLSERVER中更新多表的Update语句:Update Tab1SET a.Name = b.Nam... 阅读全文

posted @ 2010-08-05 11:26 beeone 阅读(799) 评论(0) 推荐(0)

保存图片到数据库,从数据库里提取图片

摘要：1、如何实现在Microsoft Access数据库中的图像存储：这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序： procedure TForm1.Button1Click(Sender: TObject); Var MyJPEG : TJPEGImage; ... 阅读全文

posted @ 2010-08-05 11:22 beeone 阅读(1008) 评论(0) 推荐(0)

delphi编程如何判断图片文件的真实类型？

摘要：本文主要讲解了如何判断一个图片文件的真实类型，并不是从后缀名来判断类型的方法：以下是引用片段： unit Unit55; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TImageType =... 阅读全文

posted @ 2010-08-05 10:07 beeone 阅读(2325) 评论(0) 推荐(0)

ListBox1相互拖拽数据Demo

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi; type TForm1 = class(TForm) ListBox1: TListBox; Dr... 阅读全文

posted @ 2010-08-04 17:26 beeone 阅读(513) 评论(0) 推荐(0)

MessageBox对话框

摘要：MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。　1、函数原型及参数　function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Inte... 阅读全文

posted @ 2010-08-04 17:17 beeone 阅读(193) 评论(0) 推荐(0)

DBGrid不支持鼠标的上下移动的解决代码

摘要：自己捕捉WM_MOUSEWHEEL消息处理private OldGridWnd : TWndMethod;procedure NewGridWnd (var Message : TMessage);publicprocedure TForm1.NewGridWnd(var Message: TMessage);var IsNeg : Boolean;begin if Message.Msg = W... 阅读全文

posted @ 2010-08-04 16:46 beeone 阅读(289) 评论(0) 推荐(0)

自制精美易用的DBGrid

摘要：了以上这么多的技巧和方法，想必大家未免会有一种冲动吧－自己动手做一个DBGrid，下面就介绍一种自制DBGrid的方法啦。 Delphi中的TDBGrid是一个使用频率很高的VCL元件。TDBGrid有许多优良的特性，例如它是数据绑定的，能够定义功能强大的永久字段，事件丰富等，特别是使用非常简单。但是，与FoxPro、VB 、PB中的DBGrid相比就会发现，TDBGrid也有明显的缺陷：它的键... 阅读全文

posted @ 2010-08-04 16:44 beeone 阅读(434) 评论(0) 推荐(1)

打印TDBGrid内容

摘要：procedure PrintDbGrid(DataSet:TDataSet;DbGrid:TDbGrid;Title:String);varPointX,PointY:integer;ScreenX:integer;i,lx,ly:integer;px1,py1,px2,py2:integer;RowPerPage,RowPrinted:integer;ScaleX:Real;THeight:i... 阅读全文

posted @ 2010-08-04 16:43 beeone 阅读(333) 评论(0) 推荐(0)

隔行改变DBGrid网格颜色

摘要：在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序代码:procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;D... 阅读全文

posted @ 2010-08-04 16:42 beeone 阅读(401) 评论(0) 推荐(0)

将数据集的数据导出Excel

摘要：{ 背景：今天要把DataSet导入Excel，查询以前的贴子，一部分用Ole，速度太慢，一部分用ADO连接到Excel文件，也很慢，一气之下把DBGrigEh的导出部分改了出来，欢迎大家指教、改进。功能：将数据集的数据导入Excel; 用法：With TDS2Excel.Create(TDataSet(ADOQuery1)) do Try Save2File(SaveDialog1.Fi... 阅读全文

posted @ 2010-08-04 16:40 beeone 阅读(267) 评论(0) 推荐(0)

Delphi控制Excel

摘要：1 创建Excel文件　　要在Delphi中控制Excel，就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象，当激活一个OLE对象时，服务器程序仅在容器程序内部激活，这就是所谓的“就地激活”(in-place activation)。　　创建Excel文件时，先创建一个OLE对象，然后在对象中建立工作表worksheet，如函数createExcel所示：　　f... 阅读全文

posted @ 2010-08-04 16:38 beeone 阅读(597) 评论(0) 推荐(1)

如何将几个DBGRID里的内容导入同一个EXCEL表中？

摘要：前言：　　在软件实际制作中，为节省开发成本和开发周期，一些软件人员通常会吧DBGrid中的数据直接导出到Excel表中，而先前能看到的函数仅仅只能在WorkBook的一个Sheet中导入数据，不支持多Sheet！。单元应用：Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCt... 阅读全文

posted @ 2010-08-04 16:37 beeone 阅读(224) 评论(0) 推荐(0)

怎样在DbGrid的左边，实现像EXCEL那样的自动编号？

摘要：unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Grids, DBGrids, StdCtrls, Buttons, Db, DBTables, ExtCtrls, jpeg;const ROWCNT=20;type tmygrid=class(tdb... 阅读全文

posted @ 2010-08-04 16:36 beeone 阅读(367) 评论(0) 推荐(0)

将 DBGrid 中的内容输出至 Excel 或 ClipBoard

摘要：//注意:下面的方法必须包含 ComObj, Excel97 单元 //----------------------------------------------------------- // if toExcel = false, export dbgrid contents to the Clipboard // if toExcel = true, export dbgrid to ... 阅读全文

posted @ 2010-08-04 16:35 beeone 阅读(356) 评论(0) 推荐(0)

在DELPHI中使用ADO直接访问Excel数据文件

摘要：摘　要：在DELPHI中使用ADO直接访问Excel数据文件关键字：ADO Excel类　别：数据库　　承蒙各位大鱼大虾的支持，终于顿悟。现在将心经写下来，让后来者提高修成正果的效率，早日成为大鱼大虾。　　要用DELPHI中的ADO系列控件访问Excel数据文件，首先应该建立一些基本概念。你需要将一个Excel数据文件想象为一个关系数据库，Excel文件中的每个工作表就对应该数据库中的一个表，而工... 阅读全文

posted @ 2010-08-04 16:33 beeone 阅读(706) 评论(0) 推荐(0)

把DBGrid导出到Excel表格（支持多Sheet）

摘要：{功能描述：把DBGrid输出到Excel表格（支持多Sheet）调用格式：CopyDbDataToExcel([DBGrid1, DBGrid2]);}procedure CopyDbDataToExcel(Args: array of const);var iCount, jCount: Integer; XLApp: Variant; Sheet: Variant; I: Integer;b... 阅读全文

posted @ 2010-08-04 16:33 beeone 阅读(263) 评论(0) 推荐(0)

多表头的DBGridEH导出到Excel中

摘要：多表头的DBGridEH导出到Excel中把自己的解决法子说一下，虽然解决的不是很完美，缺少单元格合并和字体设置。我重写了单元DBGridEhImpExp中的函数TDBGridEhExportAsXLS.WriteTitle希望有高手继续完善这个函数，让之最终导出的Excel格式和Elib一样。//--------------------------------------------------... 阅读全文

posted @ 2010-08-04 16:32 beeone 阅读(579) 评论(0) 推荐(0)

Delphi控制Excel的重要属性和方法

摘要：在delphi中调用excel有四种方式，我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制excel的重要属性和方法。首先给出通过OLE创建的一些主要代码步进行简单说明：创建OLE对象：Var olecon: TOleContainer;Olecon:= TOleContainer.Create(self);Olecon.oleobject:= Oleco... 阅读全文

posted @ 2010-08-04 16:30 beeone 阅读(729) 评论(0) 推荐(0)

Delphi常用函数应用

摘要：得到WINDOWS的SYSTEM路径: 方法: var MySysPath : PCHAR ; begin GetMem(MySysPath,255); GetSystemDirectory(MySysPath,255); end; 注:MySysPath为SYSTEM路径得到程序的路径 ExtractFileDir(Application.Exename);察看文件是否存在 FileExist... 阅读全文

posted @ 2010-08-04 16:18 beeone 阅读(280) 评论(0) 推荐(0)

金额及日期大写的正确写法

摘要：1、财政部《会计基础工作规范》（财会字〔1996〕19号）第五十二条（五）有明确规定；2、1997.09.19中国人民银行关于印发《支付结算办法》的通知的附件一：正确填写票据和结算凭证的基本规定：银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。票据和结算凭证是银行、单位和个人凭以记载帐务的会计凭证，是记载经济业务和明确经济责任的一种... 阅读全文

posted @ 2010-08-04 16:09 beeone 阅读(18010) 评论(0) 推荐(0)

你的人民币金额大写数字规范吗

摘要：我们在编程的过程中，特别是开发和财务相关的应用程序的时候，几乎都会遇到要将阿拉伯数字(一般是货币金额)转换为中文大写的要求。也有一些转换程序，但大都不符合财务实际要求，比如最简单的：function xd(xx:currency):string;var dx,ws:string;　i,cd:integer;　int:currency;begin　int:=trunc((abs(xx)+0.005)... 阅读全文

posted @ 2010-08-04 16:03 beeone 阅读(1306) 评论(0) 推荐(0)

最精简的小写金额转大写的函数

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; ... 阅读全文

posted @ 2010-08-04 15:55 beeone 阅读(229) 评论(0) 推荐(0)

Delphi6函数大全（3）

摘要：Delphi6函数大全（3）　 <<Delphi6函数大全3-SysUtils.pas>>首部 function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas功能返回继续文件搜索说明搜索成功则返回0参考 function Windows.FindNextFile例子 <参见FindFirst>━━━... 阅读全文

posted @ 2010-08-04 15:27 beeone 阅读(192) 评论(0) 推荐(0)

Delphi6函数大全（2）

摘要：Delphi6函数大全（2）　 <<Delphi6函数大全2-SysUtils.pas>>首部 function Languages: TLanguages; $[SysUtils.pas功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考 type SysUtils.TLanguages例子 ///////Begin Languagesprocedure TF... 阅读全文

posted @ 2010-08-04 15:26 beeone 阅读(190) 评论(0) 推荐(0)

Delphi6函数大全（1）

摘要：Delphi6函数大全（1）　 <<Delphi6函数大全1-StrUtils.pas>> 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas功能返回两个字符串是否相似说明 ANSI(American National Standards Institute... 阅读全文

posted @ 2010-08-04 15:25 beeone 阅读(161) 评论(0) 推荐(0)

硬盘整数分区计算器和公式

摘要：硬盘整数分区计算器和公式下载，附Win7系统盘整数分区方法要想吧分区显示为整数，可没有那么简单，下面我就为大家详细分析硬盘分区容量显示之谜：1. 硬盘厂商为了换算方便，是按照千进制来计算硬盘容量的，一块1TB的硬盘实际容量是1,000,000,000,000Bit=976,562,500KB=953,674MB=931GB左右，分区后实际可用容量会更小；2. 操作系统实际计算硬盘容量是按照1024... 阅读全文

posted @ 2010-08-04 14:57 beeone 阅读(2729) 评论(0) 推荐(0)

Delphi取整函数

摘要：floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123ceil 直接... 阅读全文

posted @ 2010-08-04 14:24 beeone 阅读(423) 评论(0) 推荐(0)

硬盘整数分区计算器和公式下载，附Win7系统盘整数分区方法

摘要：硬盘整数分区计算器和公式下载，附Win7系统盘整数分区方法要想吧分区显示为整数，可没有那么简单，下面我就为大家详细分析硬盘分区容量显示之谜：1. 硬盘厂商为了换算方便，是按照千进制来计算硬盘容量的，一块1TB的硬盘实际容量是1,000,000,000,000Bit=976,562,500KB=953,674MB=931GB左右，分区后实际可用容量会更小；2. 操作系统实际计算硬盘容量是按照1024... 阅读全文

posted @ 2010-08-04 12:40 beeone 阅读(3422) 评论(0) 推荐(0)

用一个 Byte 值保存八种状态的实例:

摘要：准备工作:1、在空白窗体上添加 CheckListBox1;2、添加四个 Button, 并激活 Button1 的 OnClick 事件;3、激活窗体的 OnCreate 事件. 阅读全文

posted @ 2010-08-03 16:06 beeone 阅读(450) 评论(0) 推荐(0)

ModalResult属性

摘要：假设你的主窗体为Form1，Form2为动态生成的窗体。Form2上面又两个Button，他们的ModalResult属性分别为：mrOK和mrCancel。这样，通过判断Form2的ModalResult属性就可以知道用户点了哪个Button，你就不用在Form2的ButtonClick事件里面写代码判断了。有时候，你都完全不必在Form2单元中写任何代码。简单的例子：阅读全文

posted @ 2010-08-03 14:21 beeone 阅读(1348) 评论(0) 推荐(0)

如何用弹出窗口显示进度

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Gauges; type TForm1 = class(TForm) Button1: TButton; ... 阅读全文

posted @ 2010-08-03 13:52 beeone 阅读(261) 评论(0) 推荐(0)

Delphi中Showmodal 和 Show 的区别

摘要：showmodal 和 show 区别 Showmodal是个函数，Show是个过程 1. Showmodal: 概念: 当你调用一个窗口用SHOWMODAL时,当这个窗口显示出来后,程序不会继续自己执行,而是根据你对这个窗口的操作来执行,只有关闭了这个窗口后才会执行。属性: FormStyle改为fsNormal，visible改为false 2. Show: 概念: SHOW不同，当窗口... 阅读全文

posted @ 2010-08-02 15:39 beeone 阅读(691) 评论(0) 推荐(0)

导航

公告

08 2010 档案